
ATARI Macro Assembler Ver 1 „ 0A Page 1 

D 1 : DATAMGR. 


0000 

A 000 


ORG $A000 
LIST I 

A 000 
A 000 


START 

OPEN # I OCB 1 #ORE AD H #0 , #KE YBRD 

A 000 

+A210 

j 

9 LDX #I0CB1^ 

A002 

•+■ A 90 3 


^ LDA #OPEN - 

A 00 4 

4904203 

ST A ICCOM, X 

A 00 7 

4-A9EE 


LDA #KEYBRD&$FF . 

A 00 9 

4-91)4403 


STA ICBAL, X 

A00C 

4-A93BF 


LDA # K E Y B R D / 2 5 6 • 

A00E 

4-904503 


STA ICBAH, X 

A01 1 

4-A904 


LDA # ORE AD 

A0 1 3 

4* 9 04 A 03 


STA ICAX1,X 

A0 .1 6 

4- A 9 00 


LDA #0 

A0.18 

4-904 Ef 03 


STA ICAX2, X 

A0.1.B 

4 2056 E 4 


JSR CIOV 

A01E 



OPEN # I OCB 2 ,, # 1 3 ? #0 , #ED I TOR 

A0 1 E 

4 A 220 


LDX # I OCB 2 

A 020 

4 A 903 


LDA #OPEN 

A022 

4904203 


STA I CCOM , X 

A 025 

4A9F 1 


LDA #EDITQR&$FF 

A 027 

4904403 


STA ICBAL, X 

A 02 A 

4 A 9 B F" 


LDA #EDI TOR/256 

A02C 

4904503 


STA ICBAH, X 

A02F 

4 A 900 

. 

LDA #13 

A03 1 

4904 A 03 


STA I CAX 1 , X 

A 034 

4-A900 


LDA #0 

A036 

4 9 04 B 03 


STA ICAX2, X 

A 03 9 

4 20 56 E 4 

•& 

* 

JSR CIOV ' 



THIS SECTION WILL CAUSE PROG 



Vj>* 

RUN IN RAM TO CRASH 

A 03 C 

A94D 

-ft- 

LDA #MENU&$FF 

A03E 

3580 


STA R1 

A 040 

A9A0 


LDA # MENU/ 256 

A 04 2 

858 1 


STA R 1+1 

A 04 4 

A00 1 


LDY #1 

A046 

A900 


LDA #0 

A048 

9180 


STA ( R 1 > , Y 

A04A 

C8 


I NY 

A04B 

9 1 80 

•If 

STA <R1>, Y 

A04D 

20 1 DBD 

-M- 

MENU 

JSR COLORS - "T C.C>Ct i • 

A050 

2075BD 


JSR FRONTEND -- <r ^7 C ff ri 2.5 

A 053 

A558 


LDA $58 

A 055 

8580 


STA R1 

A057 

A 559 


LDA $59 

A 059 

858 1 


STA Rl+1 

A05B 

A99F 


L D A # 3 C D A T A & $ F F 


^ (6 P v a 

1 
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A05D 
A05F 
A 06 1 
A 063 
A065 
A 06 7 
A069 
A06B 
A 06 El 
A070 
A073 
A 07 5 
A 07 8 
A07B 
A07D 
A07F 
A 08 1 
A 084 
A 08 7 
A 089 
A 08 B 
A08E 
A 09 1 


8582 

A9BE 


o “tr 


A 09 6 
A098 
A 09 A 
A09C 
A09E 
A0A1 
A0A3 
A0A6 
A0A9 


A9C0 

8584 
A 9 03 

8585 
205FA5 
A 9 FF 
8DFC02 
A 9 00 
8DB602 
ADFC02 
C9FF 

F0F4 •••A073 
A 2 :!. C 
207FA6 
2 029 B 9 
C 93 1 

D00B "'A 096 
2 06 ABF' 

2073 At 
A 933 
8DB800 

L/ 7 *-> 

F012 -•-A0AC 

p Q" 

L.* / ‘.m‘ 

D0D0 -'•A06E 
A DBS 00 
F0CB •-•A06E 
20FSA3 
20B 1 B2 
4CAFA0 



MEN 1 


MEN.!. 


MEN.2 


ST A R2 

EDA #SCDATA/256 
ST A R2+1 
EDA #4C0 - 
ST A R3 • 

EDA #3 " 

ST A R3+1 - 

JSR SCR0 ; SHORT VERSION OF SCREEN FOR MENU ONEY 
EDA #255 - - ' 

ST A 764 — UASrf 
EDA #0 

ST A 694; MAKE SURE INVFES OFF 

EDA 764 — LA<V7 (Ct !> Y 

CMP #255 

BEO MEN 1 5 

EDX #28 

JSR MESSAGES 

JSR GET 1 t 

CMP #43 1 * r 

BNE MEN2 

■VJSR UNDO; RESET SCREEN FORMAT 
j JSR DESIGN 

/ EDA #433; FORCE TO WARM 
STA WARM; LOAD RTIM BELOW 

CMP #432 [j! p y 

BEO MEN4' 

CMP #433 1 V s ^ 

— ~ BNE MEN 1 

EDA WARM; THIS SECTN ALLOWS 
BEO MEN 1 ; RETURN TO DATA SCRN 
JSR EDD 1 

JSR CLEAR; PATCH FOR SCRAMBLED DATA FROM SYS RST 
JMP MENS 


r <L^ 7 


v/v 3 


A0AC 
A0AF 
A0B 1 
A0B4 


20E 1 A3 
A984 
8DCS02 
204 8 BD 


MEN4 


JSR EDD AT A 

EDA #484 5 SET BKGRND COLOR 

STA 712 
JSR DEIST 


ft ft ft 4 ft ft -ft ft ft ft- -lb ft -ft -.If -ft ft ft ft If -ft -ft -ft -ft ft ft ft -ft ft ft ft - ft ft ft ft ft ft ft- 


MAIN CONTROL SECT I ON 


00B0 


00 B4 


ft ft ft- -ft ft- -ft ft- ft ft ft -if ft ft ft -ft -ft ft -ft ft- -ft -ft -ft ft- ft ft- ft -ft ft ft- ft ft ft ft -ft ft ft ft 


TONHLD 


$B0 


ft PR FORM - $B2 fl $B3 
MRGNSW = $B4 
ft $B6„ $B7 ARE 


THIS POS NOT AVAILABLE 
$B3 


USED - S 


>EE 


s z 
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* CASSETTE RTN EQUATES IN MYTEXT 


7 


A0B7 
A0B9 
A0BC 
A0BF 
A0C 1 
A0C4 
A0C7 
A0C9 
A0CB 
A0CD 
A0CF 
A0D 1 
A0D3 


5 


n 'm7 


00 B 8 

WARM 

~ $B8; 

00 B 9 

OPMERR 

— $B9 ? i 

00BA 

PRNTSW 

= #BA ? 

00BB 

CONREG 

= «BB 5 

00BD 

HOL.DA 

— $BD 

00 BE 

HOLDX 

= $BE 

00 BF 

MOLDY 

= $BF 
PROC 

12 

OPT I QMS 

LDX #18 


207FA6 

20D0BF 

A9FF 

SDFC02 

ADFC02 

C92A 

F019 '"A0E4 
C92S 

F023 -'••A0F2 
C938 

F025 "'A0F8 
C93E 

D003 --A0DA 
4C5DA1 


TOP ROW COLOR 


2 LOOP 



l 


A0DA 

ro '■?*=; 

/ «l»». \>M 

: loop l 

CMP 

#37? M - 

A0DC 

D0E6 -A0C4 


BNE 

: loop 

A0DE 

2085 BF 


JSR 

MEMRY 

A0E 1 

4CB7A0 

* 

: ENTER 

JMP 

OPTIONS 

A0E4 

20D6BF 

JSR 

COLROF ? 

A0E7 

A20 1 


LDX 

#1? SET 

A0E9 

2009A4 

: ENT 1 

JSR 

ENT DAT 

A0E.C 

20D4AB 


JSR 

STORDAT 

A0EF 

4CE9A0 


JMP 

: ENT 1 ^ 

A0F2 

206 7 AE 

:: RETRY 

JSR 

RETREV 

A0F5 

4CB7A0 


JMP 

OPT' I ONS 

A0F8 

A 2 16 

: FPRNT 

LDX 

#22 

A0FA 

207FA6 


JSR 

MESSAGE 

A0FD 

A9FF 

5 FPR00 

LDA 

#255 ( 

A0FF 

8DFC02 


ST A 

764 

A 102 

AD 1 FD0 

:: FPR01 

LDA 

53279 

A 105 

0903 


CMP 

#3 

A 107 

F00E -"■A 1 1 7 


BEQ 

2 FPR02 

A 109 

ADFC02 


LDA 

764 

A 1 0C 

C9 1 2 


CMP 

# .1 8 •' * 

A 1 0E 

F0 1 0 •'•A 1 20 


„ BEQ 

: FPR03 

A 1 1 0 

C90A 


CMP 

# 1 0 <L 

A 1 1 2 

F012 '"A 126 


BEQ 

: FPR04 

A 1 1 4 

4C02A 1 


JMP 

: FPR0 1 . 

A 1 1 7 

203EA5 

: FPR02 

JSR 

SCREEN 

A 1 1 A 

207EAD 


JSR 

LSTL I N 


JSR MESSAGES 
JSR COLRON 5 SET 
LDA #255 
ST A 764 
LDA 764 
CMP #425 E “ 

BEQ : ENTER 

CMP #405 R - eMJtT 7 - 

BEQ : RETRY 

CMP #56 5 F- f P gWT f 
BEQ r. FPRMT 
CMP #625 
BNE : LOOP .1. 

JMP : EX I T RTN 


q — 



TOP ROW 
FLDPTR 


COLOR OFF 
■ ENT DAT 






<f 7')“'- tl-0 


Ip piW'T 

- 5? (3< o-T S C W 
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age 

MC 


4 

D1 : DATAMGR 


A X X D 
A 1 20 
A 12 3 
A 1 2 6 
A 1 29 
A12B 
A 1 2D 
A 1 2F 
A 1 32 
A 1 34 
A 137 
A 1 3 A 
A 1 3D 
A 1 3F 
A 1 4 1 
A 144 
A 1 4 6 
A 1 49 
A 1 4B 
A 1 41) 
A 1 50 
A 1 50 
A 152 
A 154 
A 1 57 
A 1 5 A 

A15D 
A15D 
A 1 60 

/\ >| j 

H 1 £) 

A 1 66 
A X 68 
A 1 6 A 
A16D 
A 1 70 


“7 **:«■ 
I ’f 1 •«.' 


4CB7A0 
20D6BF 
2084 B 3 




20D6BF 
A90 1 
85 BA 
A 20 9 


2 y..' / 


A 2 
2009 A 4 
20 7 E AD 
20ECB8 
A5B9 

F003 •'"•A 1 44 

4CB7A0 

A99B 

204 4 B9 

A 9 00 

85B4 

20CDB0 

+A230 

+A90C 

+9D4203 

+2056E4 

4CB7A0 


201)6 BF 
209CA9 
207EAD 
E000 

F006 -A 1 70 
2085 A 6 
209 1 BC 
4CB7A0 


FPR03 

FPR04 


J MP 
JSR 
JSR 
JSR 
LDA 
ST A 
LDX 
JSR 
LDX 
JSR 
J SR 
JSR 


DPT I ONS 
COL.RQF - 
FORMAT - 
C OI-.RO F- 
#1 

PRNTSW 
#9 


sc¥-(Pcb ic^-r 


: FPR1 


LDA 
BE (3 
J MP 

f\ 


MESSAGES - 
#1 

EIMTDAT - 
LSTLIN ' 

OPNPRNT " P ^ ^ C(^ 

OPNERR - 

OPTIONS - 
#EOL 
JSR PUT 3 
LDA #0 

ST A MRGNSW 5 MARGIN SWI TCH 
JSR SRCH1 
CLOSE # I 0CB3 
LDX # I 0CB3 
LDA # CLOSE 
ST A ICCOM, X 
JSR Cl 09 
JMP OPTIONS 


IN FPRINT 


*■ 

: EXITRTN 


: E X I T 


JSR 
JSR WRDATA 
JSR LSTLIN 
CPX #0 
BEQ :EXIT 
JSR MSGS 1 
JSR BEEP 
JMP OPTIONS 


EPROC 

* ¥ ¥ # * * !f * •* *- * «■ ¥ *■ * ¥ ¥ ¥ * *• * ¥ * ¥¥¥ * ¥ * * ¥ •* # ¥ ¥ ¥ 

*• 

* DESIGN SCREEN ROUTINE 
¥ 

¥ -if -if if ¥ ■¥ ¥ ¥ ¥ #• * ¥ * ¥ ¥ ¥ ¥ ■¥ ¥ ¥ ¥ ¥ * ¥■ ¥ * * ¥ ¥¥¥¥¥¥ ¥ ¥ ¥ 

DESIGN 

I N C L LJ D E D : D S G N S C R N 



= 009C 

MSGFL.G 

= R .1 

15 


A 173 

20.BBA5 

PRSCRN 

JSR 

ZR DREGS 


A 176 

A901 


LDA 

#1 


A 1 78 

SDF002 


ST A 

752 5 DISABLE 

CURSOR 

A17B 

A97D 


LDA 

#125 5 CLEAR 

SCREEN 

A 1 71) 

2040B9 


JSR 

PUT 2 


A 1 80 

AD1FD0 


LDA 

53279 — 
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D 1 ; DSGNSCRN 


A 183 
A 1 85 
A 187 
A 1 89 
A 18 B 
A13E 
A 1 90 
A 1 92 
A 1 94 
A 195 
A 1 97 
A 1 99 
A 1 9B 
A 1 91) 
A 1 9F 
A 1 A 1 
A 1 A3 
A 1 A5 
A 1 A 7 
A 1 A 9 
A1AB 
A1AE 
A1B0 
A1B3 
A1B6 
A 1 B8 
A 1 BA 
A 1 BA 
A 1 BC 
A 1 BE 


C903 

D007 ■-•A18E 
A5B8 

F003 •"'A18E 

203EA5 

A926 

8553 
859C 
18 

A558 

6998 

8580 
A559 
6903 

858 1 
A 90 2 
8555 
A90 1 

8554 
A 900 
8DF002 
A 20 8 


CMP 


PRSCNT 


PRSRTN 






20 9 5 AD 
A9 1 D 

0046 -A200 

A9FF 
8DFC02 
20 1 2A2 


PR 80 


PR 80 


LDP 


JSR 
L..DA 
ST A 
ST A 
CLC 
LI) A 
ADC 


44. T 
tf 

PRSCNT 
WARM “ 

PRSCNT - 
SCREEN - 
#38 

83 ; SET RIGHT MARGIN 
M3GFLG ; CLR MSGFLG 


fuT 1 ^ 






a 


ST A 


LDA 
ADC 
ST A 
LDA 
ST A 
LDA 
ST A 


R 1 


#3 


. FH IS ROUTINE 
#$98 ; SETS UP A POINTER 
r, TO THE LAST ROW OF 
; THE SCREEN SO IT 
; CAN BE r CLEANED' IN 
Rl + 1 5 ROUT I ME BELOW 
#2 

$55 5 POSITION COL 
#1 

$54 ; POSITION ROW 


LDA #0 


ST A 


LDX 
JSR 
J SR 
LDA 
BNE 


752 5 ENABLE CURSOR 
#8 

MESSAGES — C 'tf-Q K 1 
CHRRPL' 

#29 ; CURSOR DOWN 
PRS2 


DA-T/4 






LDA # 

ST A 764 
JSR CL ENRON 


A 1 C2 

ADFC02 

/ LDA 

764 

A1C5 

C9FF 

/ CMP 

#255 ;; 

A 1 C7 

D00A •"A1D3 

r BNE 

PRS02 ; 

A1C9 

AD1FD0 

\ LDA 

%B0 1 F H 

A 1 CC 

C906 

\J CMP 

#6 n 

A ICE 

D0EF "-A 1 BF 

P~ BNE 

PR 80 1- 

A 1 D0 

4C4FA2 

J MP 

OUT1 — 

A 1 D3 


PRS02 - 


A1D3 

C93C 

CMP 

#60; CAP 

A 1 D5 

F0E3 "'A 1 BA 

BEQ 

PRS0 

A1D7 

C976 

CMP 

# 1 1 8 ; CL 

A1D9 

F0DF -A1BA 

BEQ 

PRS0 

A 1 DB 

A900 

LDA 

#0 

A 1 DD 

859C 

ST A 

MSGFLG ; 

A 1 DF 

20 1 2A2 

JSR 

CLENROW 

A1E2 

202 9 Ei 9 

JSR 

GET 1 

A1E5 

C9 1 C 

CMP 

#28 

A1E7 

F037 "'A220 

BEQ 

SCRNTOP 

A 1 E9 

C9 1 D 

CMP 

#29 

A1EB 

F03C •""A229 

BEQ 

SCRNBOT 

A 1 ED 

C9 1 E 

CMP 

#30 





A T A R I li a c: r o A s s e m h 1 e r V 


er 


1 


0A 


Page 6 


D1 2 D SONS CRM „ 


A1EF 

F00A ""A 1 FB 


A 1 F 1 

C91F 


A1F3 

F006 •-•A 1 FB 


A1F5 

C99B 


A1F7 

F039 •-••A232 


A 1 F9 

D005 •-■A200 


A1FB 

A 000 

PRS 1 

A1FD 

8CB602 


A 2 00 

A 4 55 

PR 82 

A202 

C026 


A204 

D006 ■••■A20C 


A 20 6 

A454 


A208 

C0 1 6 


A20A 

A20C 

F02E -A23A 

PR S3 

A20C 

2040B9 


A20F 

4CBAA1 

¥. 

A2 1 2 

A59C 

CLEMROW 

A 2 1 4 

D009 "'A21F 


A2 1 6 

A027 


A 2 1 8 

A 9 00 


A 2 1 A 

9 1 80 

CLEN1 

A 2 1 C 

88 


A2 1 D 

10FB A.2 1 A 


A21F 

60 

CLEN2 



'M' 

A220 

A454 

SCR NT OP 

a '? r :> 'i 

i y ■!«« « *!*«• i * 

0002 


A224 

D0D5 "'•A 1 FB 


A226 

4CBAA1 

# 

A229 

A 4 54 

SCRNBOT 

A22B 

00 1 6 


A22D 

D0CC "'A1FB 


A22F 

4CBAA 1 


A232 

A 4 54 

RTRNKEY 

A234 

00 1 6 


A236 

F002 -A23A 


A 238 

D0C 1 •-A1FB 

* 

O "J* A 

A 001 

NOSCROL 

a / ,M | ••n* /"•. 
ri v * 1 w 

8 OF 002 


A23F 

2040 B 9 


A242 

0654 


A 2 4 4 

0654 


A246 

A000 


A 248 

8CF002 


A24B 

A99B 


A24D 

D0BD ■'A 2 00 



BEQ 

PRS 1 



CMP 

#31 



BEQ 

PRS 1 



CMP 

# 1 55 



BEG 

RTRNKEY 



BNE 

PRS 2 



LDY 

#0 



STY 

694 



LDY 

$55 5 LAST 

COL? 


CPY 

#38 



BNE 

PRS 3 



LDY 

$54 ; LAST 

ROW? 


CPY 

ft rt 



BEQ 

NOSCROL 



JSR 

PUT 2 



J MP 

PRS0 



LDA 

MSGFL.G 



BNE 

CLEN2 



LDY 

#39 



LDA 

#0 



ST A 

( R 1 > , Y 
» 



DEY 




SPI- 

CLEN i 



RTS 




LDY 

*54 



CPY 

#2 



BNE 

PRS 1 



J MP 

PRS0 



LDY 

$54 



CPY 

Tl *•»** *!•*• 



BNE 

PRS 1 



JMP 

PRS0 



LDY 

$54 



CPY 

#22 



BEQ 

NOSCROL 



BNE 

PRS 1 



LDY 

#1 



STY 

752 ; TURN 

CURSOR 

OFF 

J SR 

PUT2 



DEC 

$54 5 BACK 

UP TWO 

ROWS 

DEC 

$54 



LDY 

#0 5 TURN 

CURSOR 

BACK ON 

STY 

"7 cr 

/ \w< «9 m« 



LDA 

#155 5 PRINT A RTRN CHR 

BNE 

PRS 3 
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A24F 

20BBA5 

A 2 52 

A90 1 

A254 

8DF002 

A 2 57 

A 9 1 E 

A 2 59 

2040B9 

A 2 SC 

18 

A25D 

A 558 

A9SF-' 

ri 4^ » 

6928 

A26 1 

8580 

A263 

A559 

A265 

6900 

A267 

858 1 

A269 

A900 

A 2 SB 

8582 

A26D 

A906 

A26F 

8583 

A27 1 

A000 

A273 

A200 

A275 

8EC009 


0084 

0085 

0086 
0087 
008B 


¥.• 

■# 

* 

*&- 

4t|. 

OUT 1 


MOVE SCREEN DATA TO BUFFER 
AND ANALYZE FIELDS 


J SR ZROREGS 


LDA #1 
STA 752 
LDA #30 

jsr put: 

CLC 

LDA $58 

0 . 0 S 


r, THIS RTN GETS RID 
!j OF THE CURSOR 


COLCNT 

ROWCNT 

BLKFLG 

BUFF'TR 

FLDFLG 


ADC 
STA R 1 
LDA $59 
ADC #0 
STA R 1+1 

LDA #SCRNBF.&*FF j 
STA R2 

LDA #SCRMBF/25(fi 

STA R2+1 , ( 

LDY #0 
LDX #0 
5TX FL.DDAT 

F * MW 

f ♦» 

\ O 

= R3+1 

m p' /J. 

" R4+* 1 
— R6 + 1 


:j 58 AND 59 POINT 
5 SCREEN MEMORY 


TO 


6^ 





= 008 C 

RCLGLO 

= R7 



00 8D 

RCLGHI 

= R7+1 


A278 

A900 


LDA 

#0 


A27A 

858 C 


STA 

RCLGLO 


A27C 

858D 


STA 

RCLGHI 


A27E 

A 90 1 


L D A 

#1 ■“] 


A280 

8585 


STA 

RQWCNJ, 


A282 

B 1 80 

ANLTOP 

LDA 

!R1) , Y 

5 MOVE 1 BYTE 

A284 

2065A3 


JSR 

BLOB UP 


A2S7 

C980 


CMP 

# 1 28 • 

Jr 5 INVERSE? ..) 

A 289 

3030 -A2BB 


BM I 

AML 2 



A28B 

A58B 

\ 

LDA 

S. 

FLDFLG 

; FLDFLG SET? 

A28D 

F009 "■'A298 

1 

f' BEQ 

ANL 1 • 


A28F 

FEC009 


U I NC 

FLDDAT s X / ? INC FLD LEN 

A 2 92 

2055 A3 


JSR 

RECCTR 


A295 

4CBFA2 

1 

J MP 

ANL 3 


A 298 

EEC 009 

ANL 1 1 < 

I NC 

FLDDAT 

; INC FLD CNT 

A29B 

E8 


I N X 



A29C 

B 1 80 


LDA 

< R 1 ) ,, Y 


A29E 

9DC009 


STA 

FLDDAT ,, X 5 TYPE 

A2A 1 

E8 


I NX 



f I .i... r i 

A584 


LDA 

COLCNT 
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A2A4 

9DC009 


ST A 

FL.DDAT, X 

5 COLUMN 

A2A 7 

2055 A3 


JSR 

RECCTR 


A2A A 

E8 


I N X 



A2AB 

A585 


LDA 

ROWCNT 


A 2 AD 

9DC009 


ST A 

FLDDAT X 

; ROW 

A 2 8.® 

ES 


I MX 



A2B 1 

A90 1 


LDA 

#1 


A2B3 

9DC009 


ST A 

FLDDAT ? X 

SSET LEN TO 1 

A2B6 

858B 


ST A 

FLDFL.8 

5 SET FLDFLG 

A 2 88 

4CBFA2 


J MR 

ANL..3 


A2BB 

A900 

AML 2 

LDA 

#0 


A2BD 

858B 


ST A 

FLDFLG 

; CLR FLDFLG 

A2BF 

E884 

ANL.3 

I NC 

COLCNT 

; INC COL 

A2C 1 

A584 


LDA 

COL.CNT 


A2Co 

C92S 


CMP 

#40 j END OF 

ROW? 

A2C5 

D00C --A2D3 


BME 

ANL4 


A2C7 

E685 


I NC 

ROWCNT 

5 I NC ROW 

A2C9 

A 5 1:3 5 


LDA 

ROWCNT 


A2CB 

C9 1 7 


CMP 

#23 SEND OF 

PAGE? 

A2CD 

F00C "'A2DB 


BEG 

ANL X I T 


A2CF 

A900 


LDA 

#0 5 RESET 

COL 

A2D1 

8584 


ST A 

COLCNT 


A2D3 

C8 

ANL4 

I NY 


; INC BUF PTRS 

A2D4 

D0AC -‘-A2S2 


BNE 

ANL. TOP 


A2D6 

E681 


INC 

R 1 + 1 


A2D8 

4 C 82 A 2 


JMP 

ANL. TOP 


A2DB 

ADC009 

ANLXIT 

' LDA 

FLDDAT 


A2DE 

204 D A3 


JSR 

TP0T3 


A2E 1 

0 FTC 009 


ASL. 

FLDDAT 


A2E4 

0EC009 


ASL 

FLDDAT • 


A2E7 

A2FF 


LDX 

#$FF 


A2E9 

ES 

ANL..X 1 

I NX 



A2EA 

ECC009 


CPX 

FLDDAT 


A2ED 

F009 •••A2F8 

S-BEQ 

TAPOUT 


A2EF 

BDC 1 09 


LDA 

FLDDAT +1 , X 


A2F2 

20 4 D A3 


JSR 

TP0T3 


A2F5 

4CE9A2 

TAPOuV 

JMP 

ANL XI 


A2FS 

A58C 

LDA 

RCLGLO S TOTAL RECORD L..N6 

A2FA 

204 D A3 


JSR 

TPOT3 


A2FD 

A58D 


LDA 

RCLGHI 


A2FF 

204 D A3 


J SR 

TP0T3 


A3 02 

A900 


LDA 

#0 


A 304 

2041) A3 


JSR 

TROT 3 


A3 07 

204 D A3 

v 

JSR 

TP0T3 


A30A 

204 D A3 


JSR 

TPOT35 PRNT 

FORMT MARGIN 

A30D 

18 


CLC 



A30E 

SEC009 


ROR 

FLDDAT 


A 31 1 

6EC009 


ROR 

FLDDAT 


A3 14 

A200 


LDX 

#0 


A3 1 6 

ES 

T POT I 

I NX 




A T A R I M a c r a A s s e m h 1 e r V e r 1 « 0 A P a g £ 


Q 

7 


D1 :: DSGNSCRN. 


A3 1 7 

A900 

A3 1 9 

204 D A3 

A3 1 C 

8 A 

A3 1 D 

204 D A3 

A3 20 

ECC009 

hj2o 

D0F 1 -•A3 1 6 

A 3 25 

A980 

A3 2 7 

204 D A3 

A3 2 A 

A90 1 

« .»pr ^ p*. 

H J* L/ 

20 4 D A3 

r I ■.»' •!•<. ! 

A99B 

A3 3 1 

204 D A3 

A 3 34 

A 2 1 9 

A 3 36 

ADC009 

A339 

F006 ""A 34 1 

A33B 

C93D 

A 3 3D 

900D ""A34C 

A33F 

A2 1 A 

A3 4 1 

S69C 

A3 4 3 

207FA6 

A 34 6 

209 1 BC 

A3 4 9 

40 SEA 1 

A34C 

60 

A34D 

20A2A5 

A 3 50 

A4S7 

/% tr 

rl *..« ^ 

9 1 82 

A3 5 4 

60 


A3 55 

F8 

A 3 56 

A58C 

A 358 

18 

A3 59 

690 1 

A35B 

858C 

A35D 

A58D 

A35F 

6900 

A3 6 1 

858D 

A3 6 3 

D8 

A3 6 4 

60 


A365 

84 BF 


A 36 7 

86 BE 


A3 69 

85BD 


A36B 

A487 


A36D 

0900 


A36F 

F03F 

•-•A3B0 

A37 1 

ASS 6 


A3 7 3 

F 005 

-'A 37 A 


L.DA 
JSR 
T X A 
JSR 
CPX 
BNE 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 



TROT 3 


JSR 
LD 


v 


ST A 
RTS 


¥. 

* 

RECCTR 


LDA 

PI p 

AD! 




ST A 


LDA 


TROT 3 

TP0T3 

FLDDAT 

TROT 1 

#f>80 

TP0T3 

#1 

i HU i ,:> 

#EOL 
TROT 3 

#25; NO FIELD NSG 
FLDDAT 
TROT .t 5 
#61 ■ 

TP0T2 

#26; TOO MANY ELDS 
MSGFLG; FOR CLNROW 
MESSAGE: 

BEEP 
PRSCNT 


C?o iM 


vlQQ * 


r*' 


INBFPT 
BUFF'TR 
(R2) , Y 


5 




; TO AVOID $9B LEM <EOL> 
RCLGLO 

#1 

RCLGLO 

RCLGHI 


# 

¥■ 

¥.■ 

BLDBUF 


/ 


ADC 

#0 

ST A 

RCLGH I 

CLD 


RTS 


STY 

MOLDY 

STX 

HOLDX 

ST A 

HOLDA 

LDY 

BUFPTR 

CMP 

#0 

be:q 

BLD3 

LDA 

BLKFLG 

BEQ 

OLD 1 


SAVE REGSTRS 


'■"i 


3 BLANK" 




3 BI...NK FLG SET" 


/ 


ATARI Macro Assembler Ver 


1 . 0A Page 10 

D1 : DSBNSCRN. 


A 375 

C 686 

DEC 

BLKFLG 

5 IF IT WAS, SET TO 

A3 7 7 

20A2A5 

JSR 

I NBFPT 

5 I NCR BUFFER PTR 

A 37 A 

A5BD 

BL.D1 LDA 

HOLDA 


A37C 

C980 

CMP 

# 1 23 

5 INVERSE CHAR? 

A37E 

30 IF •--A39F 

BMI 

BLD2 


A3 80 

A58B 

L..DA 

FLDFL8 

5 INV FLAG SET? 

A 382 

D00F •-■A3 9 3 

BME 

BLD 1 1 


A3 8 4 

A980 

L..DA 

# 1 28 


A 386 

A487 

LDY 

BUFPTR 


A 388 

9182 

STA 

< R2 ) ,, Y 

; INV BLNK TO BUF 

A 38 A 

20 A2A 5 

J SR 

I NBFPT 


A38D 

A900 

LDA 

#0 


A38F 

A4S7 

LDY 

BUFPTR 


A3 9 1 

O 1 Q D 
7 .1. QA. 

STA 

< R2 ) , Y 

; SET INV CTR TO 0 

A393 

A 48 7 

BLD11 LDY 

BUFPTR 


A3 9 5 

B 1 82 

LDA 

< R2 ) , Y 

5 THIS SECTION 

A 397 

A A 

TAX 


; INCRMNTS THE 

A3 9 8 

r ;■ o 
C. O 

I NX 


; INV CHR CTR. 

A 3 99 

8A 

T X A 



A3 9 A 

9182 

STA 

< R2 ) , Y 


A39C 

4CDAA3 

JMP 

BLD 6 


A39F 

A48B 

BL.D2 LDY 

FLDFLG 


A3 A 1 

F003 ••‘•A3A6 

BED 

BL.D21 


A3 A 3 

20 A2A 5 

JSR 

I NBFPT 


A3 A 6 

A 487 

BLD21 LDY 

BUFPTR 


A3A8 

9182 

STA 

< R2 > , Y 

; MOVE CHR TO BUFF 

A3 A A 

20A2A5 

JSR 

I NBFPT 

; I NCR BUFFER PTR 

A3 AD 

4 CD A A3 

J MP 

BLDS 


A3B0 

A48B 

BLD3 LDY 

FLDFLG 


A3B2 

F003 ■'■'A3B7 

BEG! 

BLD3.1. 


A3B4 

20A2A5 

JSR 

I NBFPT 


A3B7 

A 68 6 

BLD31 LDX 

BLKFLG 

; BLANK FLAG SET? 

A3B9 

D00D •-A3C8 

BME 

BLD4 


A3BB 

E686 

I NC 

BLKFLG 

; SET BLANK FLAG 

A3BD 

A 4 87 

LDY 

BUFPTR 


A3BF 

9 1 82 

STA 

< R2 ) , Y 

5 MOVE BL TO BUFF 

A3C 1 

20A2A5 

JSR 

I NBFPT 

5 I NCR BUFFER PTR 

A3C4 

A 487 

LDY 

BUFPTR 


A3C6 

9 1 82 

STA 

(F<2 ) , Y 

5 SET BLIMK CT TO 0 

A3C8 

A487 

BLD4 LDY 

BUFPTR 


A3CA 

B182 

LDA 

< R2 ) , Y 

; THIS SECTION 

A3CC 

AA 

TAX 

w 

? 

INCREMENTS THE 

A3 CD 

E8 

I MX 

II 

;i 

COUNTER IN THE 

A3CE 

8 A 

T X A 

n 

n 

SCREEN BUFFER 

A3CF 

9 1 82 

STA 

( R2 ) , Y 


A3D1 

C99A 

CMP 

# 1 54 


A3D3 

D005 "A3 DA 

BME 

BLDS 

5 I F I T I NCR TO 0 

A3D5 

C686 

DEC 

BLKFLG 

5 MOVE BUFPTR OVER 

A3D7 

20A2A5 

JSR 

I NBFPT 

;! AMD START BLNK CC 

A3 DA 

A4-BF 

BLD6 LDY 

MOLDY 


A3 DC 

A 6 BE 

LDX 

HOL.DX 



OVER 


A T A R I i i a c r o A s s e rn h 1 e r 


Ver 


1 u 0A Paqe 



A3DE 

A5BD 

EDA 

HOLD A 


A3E0 

60 

RTS 



A3E 1 

A900 

LDDATA EDA 

#0 


A3E3 

85B8 

ST A 

WARM 


A3E5 

20 B BAS 

,7 SR 

ZROREG " 


A3E8 

20D9A9 

JSR 

RDDATA - 


A3EB 

E000 

CPX 

#0 


A3 ED 

F009 ""■A3F8 

BEQ 

LDD1 


A3EF 

207FA6 

f JSR 

MESSAGES 


A3F2 

209 1 BC 

/ JSR 

BEEF- 


*» hni inn 
4 V i 1 « *», 

Hor *J 

4C6EA0 

) J MP 

MEM 1 


A3F8 

206 ABF 

LDD1 * JSR 

UNDO ; RESET SCREEN 

FORMAT 

A3FB 

203EA5 

J SR 

screen - *e~r Of 


A3FE 

207EAD 

JSR 

L ST LIN ~ 


A401 

20A4AD 

JSR 

POINTERS - P& < 

A404 

A901 

EDA 

#1 


A406 

85 B8 

ST A 

WARM 


A 4 08 

60 

RTS 




* 


A 4 09 


#• 

ENT DAT 





I NCLUDE D : ENTRDATA 

A 4 09 



PR DC 


- 0088 

: DATALO 

-2 RET 


= 0089 

: DAT AH I 

as R5+1 


= 008A 

: DATPTR 

« R6 


= 008B 

: TOTFLD 

as R 6 + 1 


= 008C 

: FLDBEG 

— D “7 

? \ .4 


= 008D 

: FLDEND 

= R7+1 


— 008E 

: TYPE 

= R8 

A409 

868 A 


STX : DATPTR 

A40B 

A 9 '70 


EDA #112 

A 4* 0 D 

85 1 0 


ST A 16 

A40F 

8D0ED2 


ST A 53774 5 DISABLE BRK KEY 

A 4 1 2 

18 


CLC 

A 4 1 3 

ADC000 


EDA FEDPTR 

A 4 1 6 

8588 


ST A : DATALO 

A 4 1 8 

ADC 1 00 


EDA FLDPTR+i 

A41B 

8589 


ST A : DATAHI 

A 4 1 D 

A 02 7 

I LBL 1 

LDY #39 5 SET LEFT AND RIGHT- 

A 4 1 F 

8453 


STY 835 MARGINS. 

A 4 2.1 

A 000 


LDY #0 

A423 

8452 


STY 82 

A 4 25 

B 1 88 


EDA C DATALO) , Y 

A427 

85 8 B 


ST A 5 TOTFLD 

A429 

2095AD 


JSR CHRRPL 5 ASSURES CHR REPLACED BY CRSR MOVE IS CO 

A42C 

2056A6 


J SR POSRTN 5 POS I T I ON CURSOR 





A42F 

A55S 


EDA $58 5 THIS ROUTINE SOLVES 



ATARI Macr 

a A s s e m b 1 e r V e r 1 0 A P a g e 1 2 





D1 : ENTRDATA. 

A43.1. 

8580 


ST A 

R.1 ; THE MYSTERY OF THE 

A433 

A 559 


LDA 

$59 ; DISAPPEARING FIRST 

A 4 35 

358 1 


ST A 

R.l + 1 ; CHARACTER 

A 4 37 

A A 54 


LDX 

$54 

A439 

CA 

r, LBL 1 1 

DEX 


A43A 

3010 '""A44C 


BM I 

: LBL 1 2 

A43C 



ADD 1 6 #40 ,, #0 ji R 1 R 1 + 1 

A43C 

+ 1 8 


CL..C 


A43D 

+A580 


LDA 

Ri 

A43F 

+6928 


ADC 

#40 

A44 1 

+8530 


ST A 

R 1 

A443 

+A58 1 


LDA 

R 1 + 1 

A445 

+6900 


ADC 

#0 

A447 

+8531 


ST A 

R .1 + 1 

A449 

4 C 39 A 4 


3 UP 

: LBL 1 1 

A44C 

A455 

: LBL 12 

LDY 

*53 

A44E 

B 1 80 


LDA 

< R 1 > , Y 

A450 

18 


CLC 


A45 1 

6920 


ADC 

#32 

A453 

2040B9 


JSR 

PUT 2 

A456 

A 9 1 E 


LDA 

#30 

A 4 58 

2040B9 

V 

JSR 

PUT 2 

A45B 

20C5A5 

•Pr 

JSR 

INBLNK S I NIT BLINK RTN 

A45E 

2060 AD 


JSR 

KEYDLAY ? MAKE SURE KEY HAS BEEN RELEASED 

A461 

A9FF 

; LBL 2 

LDA 

It *k»« 

A 46 3 

8DFC02 


ST A 

764 

A 4 66 

20DEA5 

5 L201 

JSR 

BLNKRT 

A 4 69 

A980 


LDA 

#*80 

A46B 

8DB602 


ST A 

$2B6 ; SET INV INPUT FLAG 

A46E 

A940 


LDA 

#*40 

A 4 70 

8DBE02 


ST A 

7025 SHIFT LOCK 

A473 

ADFC02 


LDA 

764 

A476 

20 E 1 BF 


JSR 

CLRKEY 

A 4 79 

C9FF 


CMP 

#255 5 KEY PRESSED? 

A47B 

D033 ^A4B0 


BNE 

» 1 '?{#'’? 

ff .!**» 

A47D 

AD1FD0 


LDA 

$D01F 

A 4 80 

0906 


CMP 

#6 5 START KEY? 

A 4 82 

F“ 0 .1. 1) ‘ ‘ A 4 h 1 


BEQ 

5 ST ROUT 

A 4 84 

0903 


CMP 

#3 5 OPT I ON KEY? 

A486 

F003 -A4SB 


BEQ 

:: OPTOUT 

A488 

4 066 A 4 


JMP 

- 1 1 

A48B 

20D5A5 

5 OP TOUT 

JSR 

QTBLNK 

A48E 

203EA5 


JSR 

SCREEN 

A49 1 

2 07 E AD 


JSR 

L STL IN 

A494 

A900 


LDA 

#0 5 CLEAR INVFLAG 

A496 

8DB602 


ST A 

* 2 B 6 

A 4 99 

8 DCF 00 


ST A 

EROFST; CLEAR ERROR OFFSET 

A49C 

63 


PL A 


A49D 

68 


PL A 


A49E 

4CB7A0 


JMP 

OPT I ONS 


Ver 


ATARI Macro Assembler 
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D1 : ENTRDATA. 


A4A1 

20D5A5 

A4A4 

206CAD 

A4A7 

A900 

A4A9 

SDB602 

A 4 AC 

60 

A4AD 

4C6 1 A 4 

A4B0 

C986 

A4B2 

F010 ••••A4C4 

A4B4 

C987 

A4B6 

F00C ••••A4C4 

A4B8 

C98E 

A4BA 

F008 ""A4C4 

A4BC 

C98F 

A 4 BE 

F004 -A4C4 

A4C0 

C980 

A4C2 

1 0E9 A 4 A D 

A4C4 

A 000 

A4C6 

8CCF00 

A4C9 

2029B9 

A4CC 

C99B 

A4CE 

F03C •""A50C 

A4D0 

C97D 

A 4 02 

F0D9 "A4AD 

A4D4 

C97E 

A4D6 

D002 -""A4DA 

A4D8 

A 9 1 E 

A4DA 

C97F 

A 4 DC 

F0CF ••'•A4AD 

A4DE 

C99C 

A4E0 

F0CB ■""A4AD 

A4E2 

C99D 

A4E4 

F0C7 -" A4AD 

A4E6 

C9FE 

A4E8 

F0C3 '""A4AD 

A4EA 

C9FF 

A 4 EC 

F0BF "A4AD 

A4EE 

C9 1 C 

A4F0 

F033 •-A525 

A4F2 

C9 1 D 

A4F4 

F016 --A50C 

A4F 6 

C99B 

A4F8 

A4FA 

F01 2 •"A50C 

A4F A 

2040B9 

A4FD 

A555 

A4FF 

C58C 

A 50 1 

3022 -"A525 

A503 

C58D 


3 S TROUT 


* 


BACK 


# 


■ i 

i( «l»t» 


* 

M J>.* •*- / ••••• 


L B L 


r .v;> 

.Ut 


JSR QTBLNK 
JSR KEYDLAY 


LDA #0 
ST A $2B6 

RTS 


S CLEAR INVFLA8 


JMP ILBL2 




CMP 

BEQ 

CMP 


#134 

# i 203 

# 1 35 
: L203 

# 1 42 
«* < 

Sf l|M« »'«' •••■* 

#143 
BEQ ;; L.203 


CMP 


; THIS SECTION 
5 DISALLOWS ALL 
? K E Y S T R 0 K E S W I T H 
3 THE CTRL KEY 
3 EXCEPT CURSOR 
3 DIRECTION KEYS 


CMP 


# 1 28 
3 BACK 


LDY 
STY 
J SR 
CMP 


CMP 

BEQ 

CMP 

BNE 

LDA 

3L.BL.21 CMP 


CMP 


# 1 bo 


CMP 


'MP 


CMP 

BEQ 

CMP 


BEG 

CMP 

BEQ 


EROFST 
GET 1 

# 1 55 

3 DNCURS 

# i 

If J. .t. u 

3 BACK 

# 1 26 

« j pi 1 

It Am* ln«i »!••• *»• 

#30 
#127 
3 BACK 
& 

ACK 

# .1 57 

3 BACK 
#254 
3 BACK 
#255 
3 BACK 
#28 

3 UPCURS 
#29 

3 DNCURS 

# 1 55 

3 DNCURS 


JSR PUT 2 
LDA $55 
CMP 3 Ft... D BEG 
BMI 3 UPCURS 
CMP 3 FLDEND 


3 CHANGE BKSP TO 
3 CURSOR BACK 


1 * 0A 


A T A R I M a c r o A s s e m b 1 e r V e r 
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D 1 : EMIR DAT A 


A505 

F002 ""A509 


BED 

:: LEU... 3 

AS07 

1 003 •"'A50C 


BPL 

: DNCURS 

A509 

4C6 1 A 4 

LEU-3 

J IIP 

H } Y j { O 

A50C 

AS 8 A 

: DNCURS 

LDA 

: DATPTR 

A50E 

C58B 


CMP 

: TOTFLD 

AS 10 

D006 -'AS 18 


BNE 

: DNC 1 

AS 1 2 

A90 1 


LDA 

#1 

AS 14 

8 58 A 


ST A 

: DATPTR 

AS 1 6 

1002 -'ASIA 


BPL 

: DNCOUT 

AS 1 8 

E68A 

: DNC 1 

I NC 

: DATPTR 

AS 1 A 

2 056 A 6 

r, DNCOUT 

,7 SR 

POSRTN 

AS 1 D 

202BBD 


JSR 

TONE 

A520 

A99E 


LDA 

#$9E 5 D 

ac-,90 

I 1 1.J J... A- 

4CFAA4 


J MP 

« i r./ 1 *-) 

It )«*•< *V»* I*h» 4*** 

/% cr ntr 

n i.j 

A58A 

: UPCURS 

LDA 

DATPTR 

A527 

C901 


CMP 

#1 

A529 

D006 '-ASS 1 


BNE 

: UPC 1 

A52B 

A58B 


L D A 

: TOTFLD 

AS 2D 

858 A 


ST A 

:: DATPTR 

A52F 

1002 -''A533 


BPL 

: UPCOUT 

A53 1 

C68A 

: upc l 

DEC 

: DATPTR 

AS 3 3 

20S6A6 

: UPCOUT 

JSR 

POSRTN 

AS 3 6 

202BBD 


JSR 

TONE 

AS 3 9 

A99E 


LDA 

#$9E 5 D 

Acr-rp 
r i w w 

4CFAA4 


J MP 

:: L.BL22 




EPROC 


■ r- 

. o 


MOTH I NG 






■* 

•* 

*r 


SUBROUT I MES 


#• * * •*<•• -Jf •* * •¥: # * * 

K~ 

# 

•tf 4 


f-* 


I NCLUDE D : SUBRTMS 


s\ cr “?■ r~ 
HJOC 

- 0084 

SCREEN 

CTRL.0 

= R3 


= 0005 

CTRH I 

= R3+1 


® 0086 

SCRNF'T 

= R4 


= 0087 

BUFFPT 

- R4 4- 1 


= 0088 

HLDA 

a R5 


= 0089 

SW 1 28 

« R5+1 

A53E 

A 900 


LDA #SCRNBF 

A 540 

8582 


ST A R2 

A542 

A 906 


LDA #SCRNBF 

A544 

8583 


ST A R2+1 

A546 

1 8 


CLC 


"■kcrisr 



ATARI Macro Assembler Vei' 
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Dl : SU BRINS 


A547 

A55S 


LDA 

$58 

A549 

S928 


ADC 

#40 

A54B 

8580 


ST A 

R1 

A54D 

A559 


LDA 

$59 

A54F 

S900 


ADC 

#0 

ASS .1 

858 1 


ST A 

R 1 + 1 

A553 

A903 


LDA 

#3 

A555 

8585 


STA 

CTRH I 

A557 

A 9 '70 


LDA 

#$70 

A559 

8584 


STA 

CTRLO 

A55B 

8589 


STA 

SW 1 28 

A55D 

D004 ""A563 


BNE 

SCR05 

A55F 

A900 

5CR0 

LDA 

#0 

A56 1 

8589 


STA 

SW 1 28 

ASS 3 

A900 

SCR 05 

LDA 

#0 

A565 

8DCE00 


STA 

LODFLG? 

A56S 

8586 


STA 

SCRNPT - 

A56A 

8587 


STA 

BUFFPT 

A 5 SC 

A487 

SCR 1 

LDY 

BUFFPT 

A5SE 

B182 


LDA 

<R2) , Y 

AS 70 

20A2A5 


.3 SR 

I NBFPT - 

AS 73 

A 486 

• 

LDY 

SCRNPT 

AS 75 

9 1 80 


STA 

( R :i ) , Y 

A577 

C900 


CMP 

#0 - 

A 5 79 

F00E ""A 589 


/ BEQ 

SCR 2 

AS 78 

A 43 9 


LDY 

SW 1 28 

A57D 

F004 -"ASS 3 


BEQ 

SCR .1. 5 

AS7F 

C980 


CMP 

#128 

ASS 1 

F006 •-•A589 


BEQ 

SCR 2 

A 58 3 

20A9A5 

SCR 1 5 

JSR 

I NSCPT 

ASS 6 

4 CSC AS 


BMP 

SCR 1 

A5S9 

8588 

SCR 2 V 

STA 

HI. DA 

A5SB 

A 48 7 


LDY 

BUFFPT 

A53D 

B 1 82 


LDA 

<R2) , Y 

A58F 

20 A2A 5 


J SR 

I NBFPT 

A592 

A A 


TAX 


A593 

ASS 8 


LDA 

HL.DA 

AS 95 

CA 

SCR3 

DEX 


A59S 

F0EB •-A583 


BEQ 

SCR 1 5 

A 59 8 

20A9A5 


JSR 

I NSCPT 

A59B 

A 4 86 


LDY 

SCRNPT 

A59D 

9 1 80 


STA 

< R 1 ) , Y 

A59F 

4 C 95 A 5 

* 

* 

* 

I NBFPT 

JMP 

SCR3 

AS A 2 

ESS / 

I NC 

BUFFPT 

AbA4 

D002 --A5A8 


BNE 

INBFXT 

ASA 6 

E683 


I NC 

R2+1 

AS A 8 

60 

INBFXT 

RTS 



DISABLES CNG, DEL 





ft 
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D1 " SUBRTNS- 

¥■ 

¥; 

ASA 9 

E686 

I NSCPT INC SCRNPT 

A5AB 

D002 ••"■A5AF 

BNE DECCTR 

ASAD 

E681 

INC Rl+1 

ASAP 

C684 

DECCTR DEC CTRLO 

A SB 1 

0004 a A5B7 

BNE I NSC XT 

A5B3 

C68S 

DEC CTRHI 

A5B5 

3001 •-"A5B8 

BN I R DSC XT 

A5B7 

60 

, I NSC XT RTS 

A5B8 

68 

RDSCXT PL A 

A5B9 

68 

PL A 

A5BA 

60 

RTS 

#• 

A5BB 

A9 j r:r 

ZRDREG 1 LDX #31- 

A5BD 

A 9 00 

LDA #0- 

A5BF 

9580 

ZR01 ST A R1..X 

A5C1 

CA 

j D EX - 

A5C2 

1 0FB ‘-'A5BF 

BPL ZR01 

A5C4 

60 

[ RTS 

# 

* BLINKER ROUTINE GOES HERE 
•&* 

INCLUDE D; BLINKER 

A5C5 


PROC 


— 00 A 0 

: ADDRLO = $A0 


= 00 A .1. 

: AD DR HI = $A1 


« 00 A 2 

: COL = $A2 


= 00 A 3 

u ROW “ $Ao 


0 0 A 4 

: HOLDLO = $A4 


— 00 AS 

" n HOLDHI = T. AS 


= 00A6 

: CNTLO = « A 6 


= 00 A 7 

: CNTHI = $A7 


:::: 00 A 8 

: FLAG = $A8 


= 00 A 9 

:: F I RST = $ A 9 

* 

A5C5 

A 9 00 

I NBLNK LDA #0 

A5C7 

8SA9 

ST A : FIRST ; SET 1ST BLNK FLAG 

A5C9 

85 A 8 

STA : FLAG 5 SET UPD FLAG 

A5CB 

A 90 1 

LDA #1 

A5CD 

8DF002 

STA 752 s TURN OFF CURSOR 

A5D0 

S5A6 

STA : CNTLO § I NIT COUNT 

A5D2 

8S A 7 

STA : CNTHI 

A5D4 

60 

RTS 

* 

(3 T BLNK LDY #0 

A5D5 

A000 

A5D7 

B 1 A 4 

LDA ( ; HOLDLO) , Y 

A5D9 

0980 

ORA #$80 

A5DB 

91 A 4 

STA i: HOLDLO) , Y 




A T A R I M a c r o A s s e m b 1 e 

r Ver 

1 „ 0A Page 1 7 



Dl: BLINKER. 


A5DD 

60 



RTS 

A5DE 

AS A 9 


k 

BLNKET 

EDA : FIRST 

A5E0 

F065 

•-■A647 


BEQ :UPD2 

A5E2 

AS A 3 



LDA : ROW 

A5E4 

4554 



EOR $54 

A5E6 

D055 

•"'A63D 


BNE :UPD 

A5E8 

ASA2 



LDA "COL 

A5EA 

4555 



EOR $55 

ASEC 

D04F 

'“A63D 


BNE :UPD 

A5EE 

C6A6 



DEC “ CNTLO 

A5F0 

D04A 

"•A63C 


BNE : our 

A5F2 

C6A7 



DEC ICNTHI 

A5F4 

D046 

•--A63C 


BNE : OUT 

ASF 6 

A9 1 4 


; RENTE 

LDA #20 

ASF a 

85 A 7 



ST A SCNTHI 

ASF A 

ASS 9 


: TOP 

LDA $59 

A5FC 

asA 1 



STA S ADDRH I 

A5FE 

A 5 58 



LDA $58 

A600 

85 A 0 



STA ; ADDRLO 

A602 

A 4 54 



L.DY $54 

A604 

88 


: LBL 1 

DEV 

A 60S 

30 1 0 

A 6 1 7 


BMI : LBL2 

A 6 07 




ADD 1 6 #40 , #0 , : ADDRLO , : ADDRH I 

A607 

+ 1 8 



CLC 

A608 

+A5A0 



LDA : ADDRLO 

A 60 A 

+692B 



ADC #40 

A60C 

+85A0 



STA : ADDRLO 

A60E 

+A5A 1 



LDA : ADDRH I 

A 6 1 0 

+6900 



ADC #0 

A612 

+85 A 1 



STA : ADDRH I 

A 6 1 4 

4C04A6 


JliP ; lbi... 1 

A617 



: LBL2 

ADD 1 6 $55 ,, #0 , : ADDRLO , : ADDRH I 

A 6 1 7 

+ i 8 



CLC 

a 6 1 a 

+A5A0 



LDA = ADDRLO 

A 6 1 A 

• y el* - cr trr 

"f” C!) vJ w/ 



ADC $55 

A 6 1 C 

+85A0 



STA : ADDRLO 

A 6 1 E 

+A5A .1. 



LDA : ADDRH I 

A 6 20 

+6900 



ADC #0 

A622 

+85 A 1 



STA : ADDRH I 

A 6 24 

A5A8 



LDA : FLAG 

A626 

D00C 

A a / ■*:*' A 


BNE : LBL 3 

A 6 28 

A5A0 



LDA : ADDRLO 

A62A 

85A4 



STA : HOLDLO 

A62C 

ASA 1 



LDA : ADDRH I 

A62E 

8SA5 



STA : HOL.DH I 

A 6 30 

A90 1 



LDA #1 

A632 

S5A8 



STA : FLAG 

A634 

A 000 


;; LBL 3 

LDY #0 

A 6 36 

B 1 A0 



LDA ( 2 ADDRLO > , Y 

A 63 8 

4980 



EOR #$80 


A T A R I M ac r o A s s e rn b 1 e r V e r 



IB 

: BLINKER,. 


i\ t a 

A 6 oh 

9 3. A0 


ST A 

( 2 ADDRLO) , Y 

A63C 

60 

: out 

RTS 


A63D 

A000 

: upd 

LDY 

#0 

A63F 

84A8 


STY 

: FLAG 

A 64 1 

Ei 1 A 4 


LDA 

( :: HOLDLO ) , Y 

A643 

0980 


ORA 

#$80 

A645 

9 1 A 4 


ST A 

( : HOLDLO) , Y 

AS 4 7 

A554 

3 UPD2 

LDA 

$54 

AS 49 

85 A 3 


ST A 

: ROW 

A64B 

A555 


LDA 

$55 

A64D 

85A2 


ST A 

: COL 

A64F 

A 90 1 


LDA 

#1 

ASS 1 

85 A 9 


ST A 

: FIRST 

A653 

4CF6A5 


,3 HP 

: RENTR 


¥■ 


EPROC 

¥• 


¥ 


A656 

A 48 A 

POSRTN LDY 

RS 5 THIS ROUTINE MPYS THE 

A 658 

88 

DEY 

; DATAPTR BY 4 FOR IDX 

A659 

98 

TYA 


AS 5 A 

0A 

ASL 

A 

A65B 

0A 

ASL 

A 

A65C 

AS 

TAY 


A65D 

C8 

I NY 


A65E 

B 1 88 

LDA 

(R5) , Y ; GET TYPE 

AS 60 

S58E 

ST A 

R8 

AS 6 2 

08 

I NY 


AS S3 

B 1 88 

LDA 

< R5 ) , Y ; GET COL 

AS 65 

8580 

ST A 

R7 ; STORE FOR FLDBEG 

A667 

858D 

ST A 

R7+1 5 FOR FLDEND 

A 669 

18 

CLC 


ASS A 

6 DCF 00 

ADC 

EROFST ; ERROR OFFSET FROM 

A66D 

/—i K"* !";• K." 

ojjj 

ST A 

$55 

A66F 

C8 

I NY 


A670 

Ei 1 88 

LDA 

(R5) , Y 5 GET ROW 

AS 7 2 

8554 

ST A 

$54 

AS 7 4 

C8 

I NY 


AS 7 5 

Biss 

LDA 

<R5) , Y ? GET FLD LENGTH 

AS 7 7 

18 

CLC 


AS 7 8 

658 D 

ADC 

R7+1 3 ADD TO FLDEND 

AS 7 A 

858 D 

ST A 

R7+1 

A67C 

C68D 

DEC 

R7+1 

AS7E 

60 

RTS 



A67F 

A67F 


o 


TOR ED I T 


* 

MESSAGES 


MESSAGE RTN FOLLOWS 
J. N C L U D E D " M E S S A G E S 


PROS 
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D 3. : MESSAGES 



= 0098 

: SCRML.0 

= R 1 3 


:r: 0 0 9 9 

: SCRNHI 

= R13+1 


= 009 A 

: BUFFI 

.0 

= R14 


= 00 9 B 

: BUFF HI 

ss R14+1 


00 9 C 

: MASK 


= R 1 5 


= 009D 

3 MRGN 


= R15+1 


= 009E 

; ADDER 

= R 1 6 
LDA #$48 

A67F 

A948 



A68 1 

E0 3. B 



CPX #27? GREATER 1 

A683 

B002 '" , A687 


/ 

- BCS : LBL0 

A 6 85 

A998 

MSGS 1 

/ 

LDA #$98 

A 687 

859E 

: L..BL0 

\ 

STA : ADDER 

A689 

A558 



LDA $58 — 

A68B 

8598 



STA : SCRNLO 

A68D 

ASS 9 



LDA $59 

A68F 

8599 



STA : SCRNHI 

A691 

A9AA 



LDA #MSGBUF / 256 

A693 

859B 



STA : BUFF' H I 

A 69 5 

A9F 1 



LDA #MSGBUF&255 

A697 

859A 



STA ; BUFF l._0 

A699 

A000 



LDY #0 

A69B 

CA 

: LBL 1 

f 

DEX 

A69C 

F00F ""■A A AD 



BED : LBL 2 

A69E 

B 1 9 A 


j 

LDA CBUFFLO) , Y 

A6A0 

297F 


j 

AND #$7F 

A 6 A. 2 

18 


I 

CLC 

A 6 A3 

65 9 A 



ADC ; BUFFL.0 

A6A5 

859A 



STA 3 BUFFLO 

AAA / 

90F2 ""AA9B 



BCC SLBL1 

A6A9 

EA9B 



INC : BUFFHI 

A6AB 

B0EE -AA9B 



BCS SLBH 

A 6 AD 

B 1 9 A 

« 1 PI v 

H Im«* ***** **••• *!*•• 


LDA C BUFFLO)., Y 

A6AF 

H A 



TAX 

A6B0 

1010 •■■'AAC2 



BPL : LBL 3 

A6B2 

29 7 F 



AND #$7F 

A6B4 

A A 



TAX " 

A6B5 

18 



CLC 

A6B6 

A598 



LDA 3 SCRNLO 

A6B8 

A59E 



ADC : ADDER 

A6BA 

8598 



STA 3 SCRNLO 

A6BC 

A599 



LDA 3 SCRNHI 

A6BE 

6903 



ADC #3 

A6C0 

8599 



STA 3 SCRNHI 

A6C2 

r ’■ o 

3 LBL 3 


I NY 

A6C3 

B 1 9 A 



LDA CBUFFLO) ,Y 

A ACS 

29 7 F 



AND #$7F 

AAC7 

859 D 



STA 3 MRGN ' 

AAC9 

B19A 



LDA <3 BUFFLO) „ Y 

A6CB 

2980 



AND #$80 

AACD 

8590 



STA 3 MASK 

AACF 

A 02 7 



LDY #39 • 


f'HAN 


.♦ /•** / 
.!». U.’ • 


<*2 ( 
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Ve 
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D1 : MESSAGE 


‘Cl* 

, b 


A6D1 

9 1 98 

: LBL 

A / ST A 

( : SCRNLO) 

A6D3 

88 


/ DEY 


A6D4 

10FB "• A6D 1 


V- BPL 

:LBL4 

A 6D6 

18 


CLC 


A6D7 

A59D 


LDA 

: MRGN 

A6D9 

6598 


ADC 

: SCRNLO 

A6DB 

8598 


ST A 

: SCRNLO 

A6DD 

8 A 


T X A 


A6DE 

AS 


TAY 


A6DF 

88 

: LBL 

,5\ DEY 


A6E0 

C001 


) CPY 

#1 

A6E2 

F00C ""A6F0 


L- BEQ 

" 1 Bi A 

A6E4 

B 1 9 A 


/ LDA 

< : BUFFLO ) 

A6E6 

38 


I p }-•• 

V*»- 1h»> V**.’ 


A6E7 

E920 


SBC 

r> 

1 1 v# 1 *t~* 

A6E9 

05 9 C 


l ORA 

:: MASK 

A6EB 

9 1 98 


IV ST A 

( : SCRNLO) 

A6ED 

4CDFA6 


j ^ JNP 

: LBL 5 

A6F0 

60 

: LBL 

.6 RTS 





EF'ROC 











? 


*■' 



# 


EXPLANATION OF MS0BUF CODES 


& 

* 

■K 

•jf 

*■ 


FIRST BYTE - 
HIGH BIT 


1 = BOTTOM SCREEN 
0 TOP OF SCREEN 
REMAINDER: STRING LENGTH +2 


I 

u 


A6F 1 

2501 C65744 

A 7 1 6 

9389424547 

A 7 29 

8 D 8 C 4 5 4 E 4 4 

A 736 

8DBC4D454D 

A743 

8 C 8 D 4 5 4 D 5 0 

A74F 

9 B 8 5 5 4 5 9 5 0 

A76A 

9 9 8 6 4 E 4 F 2 0 

A 78 3 

1 A 8 6435245 

A 7 91) 

A381454E54 

A7C0 

A 0 835 0 5 2 4 5 

A7E0 

9 C 8 5 4 D 5 5 5 3 

A7FC 

95884 54 E54 

AS 1 1 

9 D 8 4 4 9 4 E 5 6 

A82E 

9 B 8 5 4 5 4 E 5 4 

AS 4 9 

A 400484 F 5 7 

A86D 

9 1 004 C4 54 6 

A87E 

0200 


¥.■ 

•K- 

# 

* 


SECOND BYTE - 
HIGH BIT:: 


RENA I NDEE 


»?*•» 


1 = INVERSE 
0 - NORMAL 
LEFT MARGIN 

P I? 

MSGBUF r DB '$25, 1 , $C6, WD 7 , $C2, 7 WD 

2- DB $93, $89., 7 BEGINNING OF FILE 1 ’ 


; 2 , 


ST 


$D3 


CH 11 , $C 


* 


J DB $8D, $8C„ 
M DB $8D, $8C, 
<, DB $8C,$8D, 
$9B„ $85, 
$ 9 9 , $86, 
$ I A , $86 


END OF FILE’ 

MEMORY FULL 7 
EMPTY FILE 7 

TYPE , $27, 7 Y , $27, 7 TO DELETE 
NO SEARCH KEY SPECIFIED 7 
7 CREATE DATA ENTRY SCREEN 7 
$ A3, $81, 7 ENTER SEARCH KEY THEN PRESS START 
$A0, $83, 7 PRESS START TO CONTINUE SEARCH 7 


l DB 
I DB 
$ DB 
<\ D B 
,c> DB 

T 10 

" DB $9C, $85, 7 MUST HAVE RECORD DISPLAYED 7 
{L DB $95, $88, 7 ENTRY REQUIRED HERE 7 
G DB $9D, $84, 7 INVALID CHARACTER IN NUMBER 

5, 7 ENTER PRINT CONTROL CODES 7 


RECORD 7 


> .**** «•*.« 


iH DB 

O DB $A4, 0, 7 HOW MANY LINES BETWEEN RECORDS'? 


$A0, $A0 


t b D B $91,0, 7 L E F T M A R G I N ~ 




$A0, $ A0 7 


n DB 2,0? THIS BLANKS TOP LINE 


Ver 
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A880 

2600C54E54 

DB 

$26, 

0 , $C5 

A8A6 

A6804D454D 

DB 

$A6 , 

$80, •’ 

A8CC 

8F8C434845 

DB 

* — 20 

$8F , 

$8C, 

A8DB 

8C0046494C 

DB 

$8C, 

♦ 

0 , ? F I 

A8E7 

1 805C3484 1 

It DB 

$ 1 8 , 

5, $0-5 

A8FF 

1 D832A2046 

W DB 

$ 1 D , 

$83, 

A 9 1 C 

A 600 5 4 4 8 4 9 

t A DB 

$ A6 , 

0, TH 

A942 

9 3 8 9 4 E 4 F 2 0 

p ^ DB 

$93, 

$B9, 

A955 

918A544F4F 

L. t tDB 

$91 , 

$8 A, 

A 96 6 

9688434153 

^DB 

$96 , 

$88 „ 

A97C 

8200 

% c i J DB 

m2, 

0 ; \ 

A97E 

9 5 8 8 5 7 5 2 4 F 

DB 

$95 , 

$88, *“ 

A993 

S98E534F52 

DB 

$89, 

$0E , 


$D2, ’ ETRV 


„ $D3, •’ AVE =* , $C6, : 


MORE RECORDS-’ 


*U& „ ’ RINT 


CONTINUE? (Y/N) “ 


•K* 

* 


A99C 



PROC 

A99C 


WRDATA 



* 0301 

DUN I T 

= $301 


- 0302 

DCOMND 

= $302 


« 0303 

DSTATS 

= $303 


= 0304 

DBUFL.0 

= $304 


« 0305 

DBUFH I 

= $305 


= 030A 

DSECL.0 

« $30 A 


= 03 0B 

DSECHI 

— $30B 


= E453 

DSK I NV 

= $E453 


= 0080 

:: BUFFER 

- R 1 


= 0082 

: SECPTR 

= R2 


« 0084 

: SCRNBF 

— cy t 

— - n o 


« 0086 

: NMFLG 

^ p4 


« 0087 

: MATCH 

= R4+1 

A99C 

202BAA 


JSR : DSK 10 

A99F 

AD0303 


LDA DSTATS 

A9A2 

C90 1 


Clip #i 

A9A4 

F003 ••'•A9A9 


BEQ : DSKOT 

A9A6 

4 C A h A A 


jmp : tap or 

A9A9 

203CAA 

: DSKOT 

JSR :dskok 

A9AC 

20C6AA 


JSR ; GETNM 

A9AF 

2070 A A 


JSR : INTPTR 

A9B2 

A957 


LDA #$57 

A9B4 

8D0203 


STA DCOMND 

A9B7 

A 000 

: L 1 0 

LDY #0 

A9B9 

B 1 80 

: Li 1 

LDA < : BUFFEf 

A9BB 

990004 


STA $400, Y 

A 9 BE 

C99B 


CMP #EOL 

A9C0 

D006 "'"A9C8 


BNE : L 1 2 

A9C2 

20 1 DA A 


JSR : SECTOR 

A9C5 

A200 


LDX #0 

A9C7 

60 


RTS 
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D:l : SUBRTNS. 


A9C8 

C8 

« } i r> 

I NY 


A9C9 

C080 


CRY 

# 1 28 

A9CB 

F003 ""A9D0 


BEQ 

: L20 

A9CD 

4GB9A9 


JMP 

: LI 1 

A9D0 

20 1 DA A 

* I 

a } tM . 

J SR 

:: SECTOR 

A9D3 

208 1 A A 


JSR 

: INCPTR 

A9D6 

4CB7A9 

RDDATft 

JMP 

: L 1 0 

A9D9 

202BAA 

JSR 

:: DSK I 0 

A9DC 

AD 0303 


LDA 

DSTATS 

A9DF 

C901 


CMP 

#1 

A9E 1 

F00A A A9ED 

* 

BEQ 

r. DSK I N 

A9E3 

2015BA 

JSR 

CAS I N 

A9E6 

A 6 30 


LDX 

STATUS 

A9E8 

F'002 "-A9EC 


BEQ 

ii I OKT 

II ntn f • « ■ 

A9EA 

A 2 1 B 

V- 

LDX 

#27 

A9EC 

80 

“ 1 

II !• «1*»* «•** 

•K~ 

: DSK I N 

RTS 


A9ED 

2 030 A A 

JSR 

2 DSK OK 

A9F0 

20B8AA 


JSR 

: IMMSEC 

A9F3 

AD0804 


LDA 

$408 

A9F6 

D003 •-•A9FB 


BNE 

: L29 

A9F8 

2086 A A 


JSR 

: UHOH ; IT WONT RTN HERE! 

A9FB 

2070ft A 

» } 

ft l«M4 itua r 

JSR 

: INTPTR 

A9FE 

20 1 D AA 

:: L30 

JSR 

: SECTOR 

AA01 

ft 000 


LDY 

#0 

A A 03 

B 9 00 04 

“ i -r i 

LDA 

$400 ? Y 

A A 06 

9180 


ST A 

i : BUFFER ) , Y 

A A 08 

C99B 


CMP 

#E0L 

A ft 0 

D006 -■AAl 2 


BNE 

ii i 

it 1.... X. 

AA0C 

209 5ft D 


JSR 

CHRRPL 

AA0F 

ft 200 


LDX 

#0 

AA 1 .1 

60 


RTS 


A A 1 2 

cs 

n i o 

ft MM* lilH 

I NY 


AA 1 3 

0080 


SPY 

# 1 28 

A A 1 5 

D0EC •■■AA03 


BNE 

u j •*:*• i 

•i 1 .... .1 

AA 1 7 

208 1 AA 


JSR 

: INCPTR 

AAl A 

4CFEA9 

* 

: SECTOR 

JMP 

: L30 

Aft ID 

ft 58 2 

LDA 

: SECPTR 

AA 1 F 

8D0A03 


ST A 

DSECLO 

AA22 

A 58 3 


LDA 

:: SECPTR+i 

AA24 

8D0B03 


ST A 

DSECHI 

ft ft 27 

2053E4 


JSR 

DSK I NV 

ft ft 2ft 

60 

# 

: DSK I 0 

RTS 


AA2B 

A90 1 

LDA 

#1 

A ft 2D 

8D0103 ' 


ST A 

DUN I T 

Aft 30 

A 95 3 


LDA 

#$53 

AA32 

8 D 02 03 


ST A 

DCOMND 



ATARI Macr 
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D.t SUBRTNS. 

A A 35 

2053E4 

JSR 

DSK I MV 

AA38 

**4** #**♦* I 

J SR 

DSK I MV 

AA3B 

60 

RTS 


AA3C 

A 

A 9 52 " DSKOK 

L..DA 

#$52 

AA3E 

8D0203 

ST A 

DCOMND 

AA4 1 

A 900 

LDA 

#0 

A A 43 

8D0403 

ST A 

DBUFLO 

A hi 4 to* 

A 90 4 

LDA 

#4 

AA48 

8D0503 

ST A 

DBUF'H I 

AA4B 

A968 

LDA 

#$68 

AA4D 

8D0A03 

ST A 

DSECLO 

A A 50 

A901 

LDA 

#1 

A A 52 

8D0B03 

ST A 

DSECH I 

AA55 

2053 E 4 

JSR 

DSK I MV 

AA58 

AD0304 

LDA 

$403 

AA5B 

C9C3 

CMP 

#$C3 

AA5D 

30007 •■•AA66 

BNE 

: UHOH 

A ASF 

AD0404 

LDA 

$404 

A A 62 

C902 

CMP 

Tl ,l|f. 

AA64 

F009 **‘**AA6F 

BEQ 

: OK 

AA66 

» UHOH 



AA66 

A21D SUHOHl 

LDX 

#29 

A A 68 

869C 

STX 

MSGFLG 5 USED IN DSGMSCRN 

AA6A 

2095 AD 

J SR 

CHRRPL 

AA6D 

68 

PL A 


AA6E 

6B 

PL.A 


AA6F 

60 « OK 

RTS 


AA70 

T. 

A 9 00 : INTPTR 

LDA 

# S C R M B F 8< $ F F 

A A 72 

8580 

ST A 

; BUFFER 

AA74 

A 906 

LDA 

# S C R N B F / 2 15 6 

A A 76 

8581 

ST A 

“ BUFFER + 3. 

A A 78 

A 905 

1... D A 

#5 

A A '7 A 

8582 

ST A 

: SECPTR 

AA7C 

A 9 00 

LDA 

#0 

AA7E 

8583 

ST A 

: SECPTR +1 

A A 80 

60 

-to. 

RTS 


AA8 1 

ft 

: INCPTR 

ADD 1 & # 1 28 , #0 , ; BUFFER , S BUFFER+ 1 

AA81 

4- 1 8 

CLC 


A A 82 

4 A 580 

LDA 

:: BUFFER 

AA84 

46980 

ADC 

#128 

A A 86 

48580 

STA 

: BUFFER 

A AS 8 

4A58 1 

LDA 

: BUFFER+l 

AA8A 

46900 

ADC 

#0 

A ABC 

4858 1 

STA 

:: BUFFER+l 

A ABE 


ADD .1. 6 #1 , #0 , SECPTR , : SECPTR+ i 

AA8E 

4 1 8 

CLC 


A ABF 

4 A 58. 2 

LDA 

: SECPTR 

AA91 

4690 1 

ADC 

# .1 





ATARI Mac 
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D1 : SUBRTNS. 

AA93 

+8582 


ST A 

3 SECF'TR 

AA95 

+A583 


LDA 

: SECPTR+l 

AA97 

+6900 


ADC 

#0 

AA99 

+8583 


ST A 

: SECPTR+l 

AA9B 

A 58 3 


LDA 

: SECPTR+l 

AA9D 

C90 1 


CMP 

#1 

AA9F 

D008 •-••AAA9 


BME 

:L2i 

AAA 1 

A582 


LDA 

: SECPTR 

A A A3 

C968 


CMP 

#$68 

AAA5 

D002 ■'••AAA9 


BNE 

: L2 i 

AAA7 

E682 


INC 

:: secptr 

AAA9 

60 

L2 1 

RTS 


AAAA 

A 900 

Jv 

“ TAROT 

LDA 

#0 

AAAC 

8524 


ST A 

ICBAL.Z 

AAAE 

A 9 06 


LDA 

#6 

AAB0 

8525 


STA 

ICBAHZ 

AAB2 

2059B9 


JSR 

CASOUT 

AAB5 

A 200 


LDX 

#0 

AAB7 

60 

•K 

RTS 


AAB8 

A 90 4 

* 

: NMSEC 

LDA 

#4 

AABA 

8D0A03 


STA 

DSECLO 

AABD 

A 9 00 


LDA 

#0 

A ABF 

8D0B03 


STA 

DSECH I 

AAC2 

2053E4 


JSR 

DSK I MV 

AAC5 

60 

■M. 

RTS 


AAC6 

20BSAA 

fv 

GETNIi 

JSR 

: NMSEC 

AAC9 

A 900 


LDA 

#0 

AACB 

8586 


STA 

:: NMFLG 

AACD 

A008 


LDY 

#8 

AACF 

88 

“ L40 

DEY 


AAD0 

3009 •"•AADB 


BM I 

2 L.4 1 

AAD2 

B 9 00 04 


LDA 

$400, Y 

AAD5 

C900 


CMP 

#0 

AAD7 

F0F6 •-•AACF 


BEQ 

: L40 

AAD9 

E686 


I NC 

: NMFLG 

AADB 

A2 1 5 

L 4 1 

LDX 

#21 

AADD 

207FA6 


JSR 

MESSAGES 

AAE0 

A91 7 


LDA 

#23 

AAE2 

8554 


STA 

$54 

AAE4 

A90E 


L..DA 

# 1 4 

AAE6 

8555 


STA 

$55 

AAE8 

A 9 00 


LDA 

#0 

AAEA 

8DF002 


STA 

752 

AAED 

8DB602 


STA 

694 5 INVFLG 

AAF0 

A9FF 


LDA 

#$FF 

AAF2 

85BE 


STA 

HOLDX 

AAF4 

2095AD 


JSR 

CHRRPL 5 ASSURES CHR REPLACED BY CRSR MOVE IS CO: 






THIS SECTION SCREENS OUT UNWANTED 
KEYSTROKES AND LIMITS FILE NAME 
TO EIGHT CHARACTERS. 


AAF7 

A 9 1 E 

' 

LDA 

#30 

AAF‘9 

4C1BAB 


JMP 

;; L502 

A AFC 

A9FF 

: L50 

LDA 

#$ FF 

AAFE 

8DFC02 


ST A 

764 

AB0 1 

ADFC02 

: L50 1 

LDA 

764 

AB04 

C9FF 


CMP 

#$FF 

AB06 

F0F9 ''•ABO 1 


BEQ 

: L.50 1 

AB08 

C9S6 


CMP 

#1345 CURS LEFT 

AB0A 

F00S ••"■AB 1 4 


BEQ 

« } •} k:: ; 

AB0C 

C9S7 


CMP 

#1355 CURS RIGHT 

AB0E 

F004 -AB14 


BEQ 

: L50 1 5 

AB 1 0 

C940 


CMP 

#64 

AB 1 2 

B0E8 ••"AAFC 


BCS 

« I CT fii 
u 

AB 1 4 

2029B9 

u L 50:15 

JSR 

GET 1 

AB 1 7 

C99B 


CMP 

#155 

AB 1 9 

F024 •-•AB3F 


BEQ 

:L5i 

AB :l. B 

A655 

: L502 

LDX 

$55 

AB 1 D 

E0 1 5 


CPX 

#21 

AB 1 F 

D00E -AB2F 


BNE 

: L503 

AB21 

C9 1 E 


CMP 

#305 CURSOR BACK 

1 1 «>-.* ***** 

F00A ■■■•■AB2F 


BEQ 

: L503 

A P O S 

i I E* ,u.. w 

C97E 


CMP 

#1265 BACK SPACE 

AB27 

F00A ■•"•AB2F 


BEQ 

: L503 

AB29 

202BBD 


JSR 

TONE 

A.B2C 

4CFCAA 


JMP 

: L50 

AB2F 

2040B9 

:: L503 

JSR 

PUT 2 

AB32 

A A 55 


LDX 

$55 

AB34 

E00C 


CPX 

#12 

AB36 

D0C4 •"AAFC 


BNE 

:L50; GO BACK 

AB3S 

202BBD 


JSR 

TONE 

AB3B 

A 9 1 F 


LDA 

#31 

AB3D 

D0DC •■■■ AB 1 B 

#- 

: L5l 

BNE 

5 L.502 

AB3F 

A 90 1 

LDA 

#1 

AB4 1 

8DF002 


STA 

***? K“‘ 

■' .1 •' 
t tt*** 

A B 4 4 

A 9 1 F 

• 

LDA 

#31 

AB46 

204 0B9 


JSR 

PUT 2 

AB49 

18 


CLC 


AB4A 

A558 


LDA 

$58 

AB4C 

A9A5 


ADC 

#$A5 

AB4E 

8584 


STA 

: SCRNBF 

AB50 

A559 


LDA 

$59 

AB52 

A903 


ADC 

#3 

AB54 

8585 


STA 

: SCRNBF + 1 

AB56 

A 00 7 


LDY 

#7 

AB58 

8487 


STY 

:: MATCH 
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D 1 :: SUBRTNS . 

A EISA 

B 1 84 

: L52 

LDA 

< : SCRMBF ) * Y 

AB5C 

D90004 


CMP 

$400, Y 

AB5F 

F004 •-•AB65 


BEQ 

t* i icr 

n L.. •«.* 

AB61 

A200 


L.DX 

#0 

AB63 

Q L Q "7 
OOCS / 


STX 

: MATCH 

AB65 

990804 

; L.53 

ST A 

*408 , Y 

AB68 

88 


DEY 


AB69 

10EF ‘-AB5A 


BPL 

.. i o 

U «•*». V**’ 

AB6B 

A686 


LDX 

:: NMFL8 

AB6D 

F03C -ABAB 


BEQ 

: L59 

AB6F 

A 687 


LDX 

r. MATCH 

AB7 1 

F00E AB8 1 


BEQ 

: L55 

AB73 

A9FF 

: L54 

LDA 

#$FF 

AB75 

8 D 08 04 


ST A 

$408? NON-EMPTY DISK FLAG 

AB78 

A957 


LDA 

#*57 

AB7A 

8D0203 


ST A 

DCOMND 

AB7D 

2053E4 


JSR 

DSK I NV 

AB80 

60 


RTS 


AB81 

A 2 1 7 

i» i cr cr 

LDX 

#23 

AB83 

207FA6 


JSR 

MESSAGES 

AB86 

A 21 8 


LDX 

#24 

AB88 

207FA6 


JSR 

MESSAGES 

AB8B 

18 


CLC 

; THIS RTN MOVES 

AB8C 

A558 


LDA 

$58 3 FILE NAME TO MSG 

ABBE 

69 A 5 


ADC 

#$A5 ; WINDOW 

AB90 

8 59 A 


ST A 

R 1 4 

AB92 

A559 


LDA 

*59 

AB94 

6903 


ADC 

#3 

AB96 

859 B 


ST A 

R 1 4 + 1 

AB98 

A 00 7 


LDY 

#7 

AB9A 

B90004 

: L57 

LDA 

*400, Y 

AB9D 

9 1 9 A 


ST A 

< R 1 4 > , Y 

AB9F 

88 


DEY 


ABA0 

1 0F8 -AB9A 


BPL 

“ L57 

ABA2 

2095AD 

: L58 

JSR 

CHRP PL 

ABAS 

209 1 BC 


JSR 

BEEP 

ABAS 

20B9AB 


JSR 

:: YESNO 

ABAB 

A007 

n v*/ -* 

LDY 

#7 

ABAD 

B 9 08 04 

: L60 

LDA 

$408 , Y 

ABB0 

990004 


ST A 

$400, Y 

ABB3 

88 


DEY 


ABB4 

1 0F7 -ABAD 


BPL 

: L60 

ABB6 

4C73AB 

•Jf 

JMP 

: L54 

ABB9 

A9FF 

: YESNO 

LDA 

#$FF 

ABBB 

8DFC02 


ST A 

764 

ABBE 

ADFC02 

: YES1 

L.DA 

764 

ABC 1 

C9FF 


CliP 

#*FF 

ABC 3 

F0F9 -ABBE 


BEQ 

r. YES1 

ABC 5 

C92B 


CMP 

#*2B; y 

ABC7 

D00 1 --ABC A 


BNE 

« YCG9 

n 1 #•••• *i»m 



f 
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D1 : SUBRTNS. 

ABC9 

60 


RTS 

ABC A 

68 

■■ VPQ'l 

it ! L m w .i». 

PL A 

ABCB 

68 


PLA 

ABCC 

68 


PL. A 

ABCD 

68 


PLA 

ABCE 

20 7 E AD 


JSR L STL IN 

ABD 1 

A 2 00 


LDX #0? MSG FLAG UPON RETURN 

ABD3 

60 

* 

RTS 



- 

EPROC 



*■ 




* 

STORE AND EDIT ETN GOES HERE 



¥r 

I NCLUDE D : STORED I T 

ABD 4 
ABD4 


STDRDAT 

PROC 


= 0090 

: BUFFLO 

= R9 


« 0091 

: BUFFH I 

= R9+1 


= 0092 

I SCRNLQ 

= R10 


= 0093 

: SCRMH I 

= R. 1.0+1 


« 0094 

: BUFFET 

= R 1 1 


« 0095 

; SCR NET 

= R 1 1 + 1 


- 0096 

: CTRLD 

= R 1 2 


* 0097 

: CTEH I 

* R12+1 


= 0080 

: EDFLG 

= R 1 


= 0081 

: EDTYR 

= Rl + 1 


= 0082 

: DECET 

= R2 


= 0033 

: NGSGN 

= R2+1 


= 0084 

: INDEX 

— O T 
P. 


= 0085 

: SEACE 

« R3+1 


— 0086 

.1 FLDET 

ss R4 


« 0037 

: HOLDA 

= R4+1 


*= 0088 

.1 SPAC2 

= RS 



# 




* TH I S 

RTN CHECKS TO SEE IF THERE 



* IS ENOUGH ROOM IN MEMORY FOR 

* ANOTHER RECORD „ 

ABD4 

18 

vv 

CLC 

ABD5 

A DC 4 00 


LDA BUFEND 

ABDS 

6 DC 6 00 


ADC RECLNG 

ABDB 

8590 


STA : BUFFLO 

ABDD 

A DC 5 00 


LDA BUFEND+1 

ABE0 

6 DC 7 00 


ADC RECLNG+1 

ABE 3 

359 1 


STA : BUFFH I 

ABES 

CDE602 


CMP MEMTQP+1 

A BE 8 

9012 ’’’ABFC 


BCC :lbli 

ABE A 

F006 "-•ABF 2 


BEQ : LBL05 

ABEC 

A 20 4 

; L.BL01 

LDX #4 

ABEE 

207 FA6 


JSR MESSAGES 

ABF 1 

60 


RTS 



AJAR I Mac r o Assemb 1 er Ver 


1 u 0A 


Page 




8 


D i :: S 


ABF 2 

A590 

: LBL05 

LDA 

: BUFFLO 

ABF 4 

CDE502 


CMP 

MEMTOP 

ABF 7 

9003 "'ABFC 


DPP 
L.* L,* 

: LBL 1 

ABF 9 

4CECAB 

: LBLl 

JMP 

: LBL. 01 

ABFC 

ADC 4 00 

LDA 

BUFEND ;SET PTR TO 

ABFF 

8590 


ST A 

: BUFFLO 5 CURREN T EOF 

AC0 1 

ADC 500 


LDA 

BUFEND + 1 5 TO ADD NEW 

AC04 

859 1 

ST A :buffhi ; record 

# 

* THE FOLLOWING SECTION OF THIS RTN 

* IS ALSO USED TO CHANGE DATA,, IT IS 

* CALLED FROM THE RETEEV RTN „ 

AC 06 

A000 

TT 

CHNGDAT 

LDY 

#0 

AC 08 

8494 

if 

STY 

: BUFFPT 

AC0A 

A90 1 

LDA 

#1 5 I Nl'T ED FLAGS 

AC0C 

8584 


ST A 

:: INDEX 

AC0E 

A900 


LDA 

#0 

AC 1 0 

8586 


ST A 

: FLDPT 

AC 12 

8580 

¥;• 

ST A 

EDFLG 

AC 1 4 

A 55 9 

LDA 

$59 

AC 1 6 

8593 


ST A 

; SCRNH I 

AC 1 8 

A558 


LDA 

$58 

A 8 1 A 

8592 


ST A 

: SCRNLO 

AC 1. C 

A 050 


LDY 

#80 

AC 1 E 

8495 

•Jf 

STY 

:: SCRNPT 5 SKIP FRST 2 LNS 

AC 20 

A948 

LDA 

#$48 ? I N I T S C R E E N C T R 

a n d 

r‘i 4^. 

8596 


ST A 

: CTRLO 

AC 2 4 

A903 


LDA 

#3 

AC 2 6 

8597 

* 

: LBL2 

ST A 

: CTRHI 

AC 28 

A 4 95 

LDY 

: SCRNPT 

AC 2 A 

B 1 92 


LDA 

( : SCRNLO ) , Y 

AC2C 

8587 


ST A 

1 HOLDA 

AC2E 

20B4AC 


J SR 

EDDATA 

AC3 1 

A587 


LDA 

: HOLDA 

AC 3 3 

2980 


AND 

#$80 

AC 35 

F00C "■•AC43 


BED 

u j pi “T 

ft Ititi mi Lm *ii*^ 

AC37 

A 58 7 


LDA 

: HOLDA 

AC 3 9 

38 


qpp 

; TAKE THESE OUT 

AC 3 A 

E960 


SBC 

#96 ; LATER ! 

A CSC 

A494 


LDY 

S BUFFPT 

AC3E 

9 1 90 


ST A 

< : BUFFLO) ;1 Y 

AC 40 

2049 AC 

: LBL2 1 

JSR 

INBFPT 

AC 4 3 

2050AC 

: LBL3 

JSR 

: I NSC FT 

AC46 

4C28AC 

■¥r 

JMP 

: LBL 2 


TORE on 



A T A R 1 !i a c r o A s s e m b 1 e r V e i 


1 « 0A 


9P 

D1 1 STORED IT 


AC 4 9 

E694 

: INBFPT 

INC IBUFFPT 

AC4B 

D002 -AC4F 


BNE : INBFXT 

AC4D 

E691 


INC - BUFFHI 

AC4F 

80 

: INBFXT 
* 

: INSCPT 

RTS 

AC 50 

E695 

INC sSCRNPT 

AC 5 2 

D002 AC5& 


BNE : DECCTR 

AC54 

I"*' t ***** 

CO 7 


INC : SCRNHI 

AC56 

C696 

: DECCTR 

DEC : CTRLO 

AC5S 

D004 •"'AC5E 


BNE : I NSC XT 

AC5A 

C697 


DEC :: CTRHI 

AC5C 

3001 -ACSF 


BMI : STORXT 

AC5E 

80 

: I NSC XT 
: S T OR X T 

RTS 

AC5F 

ADCD00 

I...DA CHNFLQ 

AC 6 2 

D03E •-ACA2 


BNE :exit 

AC64 

A99B 


L..DA #EOL 

AC 6 6 

A 49 4 


LDY : BUFFPT 

AC68 

AC6A 

9190 


ST A C BUFFED >,Y 

ADD 1 6 RECLN8 , RECLNG+ 1 , BUFEND , BUFEND+ 

AC6A 

+ 1 8 


CLC 

AC6B 

+ADC400 


EDA BUFEND 

AC6E 

+8 DC 8 00 


ADC RECENG 

AC 71 

+8DC400 


STA BUFEND 

AC 7 4 

+ADC500 


EDA BUFEND + 1 

AC 7 7 

+8DC700 


ADC RECLNG+1 

AC7A 

+8DC500 


STA BUFEND+ 1 

AC7D 

FS 


SED 

AC7E 

A000 


LDY #0 

AC80 

B 1 D0 


EDA (CN'TPTR) „ Y 

ACS 2 

8901 


ADC #1 

AC 84 

9 1 D0 


STA (CNTPTR) ,, Y 

AC86 

C8 


I NY 

AC87 

B 1 D0 


EDA (CNTPTR) ,Y 

ACS 9 

6900 


ADC #0 

AC8B 

9 1 D0 


STA (CNTPTR) ,Y 

AC8D 

AC8E 

D8 


CLD 

ADD 1 6 # 1 ,, #0 ,, RECCNT ,, RECCNT + 1 

AC8E 

+ 18 


CLC 

ACSF 

+ ADC 8 00 


LDA RECCNT 

AC92 

+690 1 


ADC #1 

AC94 

+8 DC 8 00 


STA RECCNT 

AC 9 7 

+ADC900 


EDA RECCNT +1 

AC 9 A 

+6900 


ADC #0 

AC9C 

+SDC900 


STA RECCNT + 1 

AC9F 

203EA5 


JSR SCREEN 

ACA2 

207EAD 

:EXIT 

JSR LSTE.IN 

ACA5 

A900 


LDA #0 

AC A 7 

8DCD00 


STA CHNFEG 

ACAA 

8DCF00 


STA EROFST 5 CLR ERROR OFFSET 

ACAD 

A 20 1 


EDX #1 




ATARI Mac 
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Dl: STORED IT. 

ACAF 

A 000 



LDY 

#0 5 FLAG TO CHNG RTN 

ACB 1 

88 



PL A 


ACB2 

68 



PL A 


ACB 3 

60 



RTS 


ACB 4 

2980 


T 

EDDATA 

AND 

##80 

ACB 6 

D02 1 

"'"ACD9 


BNE 

; LBL.40 5 INV CHR? 

ACB9 

A 580 



LDA 

: EDFLG 5 FIRST BLANK PAST 

AC BA 

F050 

-AD0C 


BEQ 

: EDOUT ? DATA FIELD? 

ACBC 

A 900 



LDA 

#0 

ACBE 

8580 



ST A 

: EDFLG ; CLEAR EDIT FLAG 

ACC0 

8DCF00 


ST A 

EROFST 5CLR ERROR OFFSET 

ACC3 

A585 



LDA 

: SPACE 5 PREV FLD BLANK? 

ACC 5 

D045 

•'■"AD0C 


BNE 

: EDOUT 

hLL / 

ASS .1 



LDA 

: EDTYP ; CAN PREV FLD BE 

ACC 9 

C9A3 



CMP 

#$A3 n BLANK? 

ACCB 

D03F 

•'•■AD0C 


BNE 

: EDOUT 

AC CD 

A ?0C 



LDX 

#12 5DISP ERROR MSG 

ACCF 

207FA6 


JSR 

MESSAGES € 

ACD2 

6 8 



PL A 


ACD3 

6 S 



PL A 


ACD4 

A 686 



LDX 

; FL.DPT5 SET PTR FOR ENTDAT 

ACD6 

A00 1 



LDY 

#1 ; FLAG TO CHNG RTN 

ACDB 

60 



RTS 


ACD9 

A580 


I LBL.40 

LDA 

EDFLG 

ACDB 

D02 1 

-'•ACFE 


BNE 

LBL45 

ACDD 

A90 i 



LDA 

# 1 

ACDF 

8580 



ST A 

: EDFLG 

ACE 1 

A 48 4 



LDY 

: INDEX 

ACE3 

B 1 C0 



LDA 

(FL.DPTR) H Y S GET FLD TYPE 

ACES 

858 1 



ST A 

:: EDTYP 

ACE 7 

E684 



I NC 

: INDEX 

ACE9 

E684 



I NC 

: INDEX 

ACEB 

E684 



I NC 

: INDEX 

ACED 

E684 



I NC 

: INDEX 

ACEF 

E686 



INC 

: FLDPT 

ACF 1 

A 9 00 



LDA 

#0 

ACF3 

8532 



STA 

: DECPT 

ACF 5 

8583 



ST A 

; NGS6N 

ACF 7 

8585 



STA 

: SPACE 

ACF 9 

8588 



STA 

: SPAC2 

ACFB 

8 DCF* 

30 


STA 

EROFST 

ACFE 

ASS 1 


: LBL45 

L D A 

: EDTYP 

AD00 

C980 



CMP 

#$80 

AD02 

F008 

" % AD0C 


BEQ 

f. EDOUT 

AD04 

C9A3 



CMP 

#$A3 ; INV C 

AD06 

F005 

'■"■AD0D 


BEQ 

: CHAR 

AD 08 

C9AE 



CMP 

#$AE 5 INV N 

AD0A 

F00E 

•'■ADI A 


BEQ 

: NUMR 

AD0C 

60 


; EDOUT 

RTS 


AD0D 

A587 


: CHAR 

LDA 

: HOL..DA 5 GET CHR FROM HOLD 




A 

TAR 1 Mac 

r o A s s e rn fo 1 e r V e r 1 „ 0 A P a g e 3 1 




D1 : STORED IT. 

AD0F 

C980 


CMP #*80 ; IS IT A BLANK? 

AD .1 1 

F0F9 "AD0C 


BEQ » EDOUT 

AD 1 3 

A90 1 


LDA #1 

AD 1 5 

8585 


STA : SPACE 

AD 17 

4C0CAD 


JMP : EDOUT 

AD 1 A 

A587 

“ NUMR 

LDA : HOLDA 

AD .1. C 

C980 


CMP #$80 

AD 3. E 

D00A ""AD2A 


BNE :LBL50 

AD20 

A 4 85 


LDY : SPACE 

AD 2 2 

F036 "'AD5A 


BEQ SLBL60 

AD24 

A00 1 


LDY #1 

AD26 

8488 


STY a SPAC2 

AD28 

D030 -'■ADS A 


BME :: LBL60 

AD2A 

A 4 88 

: LBL50 

LDY " SPAC2 

AD2C 

D032 -'•■AD60 


BNE :numer 

AD2E 

C98D 


CMP #$8D ; NEG SIGN — 

AD 30 

302E •""AD 60 


BMI : NUMER 

AD32 

C99A 


CMP #$9A ; COLON # 

ADS 4 

1 02 A -AD60 


BPL : NUMER 

AD 3 6 

C98F 


CMP #$8F 5 SLASH 

AD38 

F026 •-•AD60 


BEQ : NUMER 

AD3A 

C98E 


CMP #$8E ; DEC POINT # 

AD3C 

D008 •'"AD46 


BNE 2LBL55 

AD3E 

A 4 82 


LDY : DECPT 

AD 40 

D01E •■■"AD60 


BNE : NUMER 

AD 4 2 

A 00 l 


LDY #1 

AD44 

8482 


STY : DECPT 

AD 4 6 

C98D 

: LBL55 

CMP #$8D 5 NEG SIGN (*~/ 

AD48 

D00C ■•"AD56 


BNE “ LBL57 

AD 4 A 

A485 


LDY : SPACE 

AD4C 

D0 1 2 ■"■■AD60 


BNE : NUMER 

AD4E 

A 4 83 


LDY : NGSGN 

AD 50 

D00E -AD60 


BNE :: NUMER / 

AD52 

A 00 1 


LDY #1 ( 

AD 54 

8483 


STY " NGSGN j 

AD56 

A00 1 

» } Ptl 57 

II Iiim Ait’ rim \*rf i* 

LDY #1 

AD58 

8485 


STY : SPACE 

AD5A 

AD5D 

EECF00 

4C0CAD 

: LBL60 

INC EROFST 

LM #“° UT V*"*'' 1 *’ »'"*■**'*' 

AD60 

A20D 

: NUMER 

AD 6 2 

207FA6 


J SR MESSAGES 

AD65 

A686 


LDX : FLDPT 

AD 6 7 

A 001 


LDY #1 

AD 6 9 

68 


PL A 

AD 6 A 

68 


PL A 

AD6B 

60 

•ft' 

•ft- 

•ft* 

RTS 

EPROC 


Ver 


A T A R I M a c r o A s s e m h 1 e r 


Page 



D1 :SUBRTN 




AD6C 

AD6C 

A 2 1 4 

KEYDLAY 

LDX #20 


AD6E 

A000 


LDY #0 


AD 70 

QQ 
O O 

KEY 1 

DEV 


AD71 

D0FD "AD70 


BNE KEY 1 


AD73 

C A 


DEX 


AD 7 4 

D0FA - S AD70 


BNE KEY 1 


AD76 

AD1FD0 


LDA 53279 


AD79 

C907 


CMP #7 


AD7B 

30EF A AD6C 


BMI KEY Di- 

AY 

AD7D 

60 

* 

* 

RTS 


AD7E 


PROC 


AD7E 

AD7E 

IB 

L.STL I N 

CL C 


AD7F 

A 5 58 


LDA *58 5 

THIS SECTION SETS A 

ADS 1 

6998 


ADC #*98; 

POINTER TO POINT AT 

ADS3 

8580 


ST A R1 5 

LAST LINE OF SCREEN 

AD85 

A 55 9 


LDA *59 


ADS “7 

6903 


ADC #3 


A DO 9 

858 1 


STA Ri+1 


AD8B 

A027 


LDY #39 


AD8D 

A 980 


LDA #*80 


AD8F 

9 ;l. 80 

: LBL 1 

STA (Rl) ? 

Y 5 INV BLANK ON 

AD9 1 

88 


DEY 

5 LAST LINE 

AD 92 

1 0FB ""A DBF 


BPL " LBL 1 


AD 9 4 

60 

* 

RTS 


AD 95 

A55E 

CHRRPL 

LDA *5E 

5 THIS RTN ASSURES 

AD 9 7 

8598 


STA R13 

; THAT THE CHARACTER 

AD99 

A55F 


LDA *5F 

5 REPLACED BY THE 

AD9B 

8599 


STA R13+1 

; CURSOR MOVEMENT 

AD9D 

A 000 


LDY #0 

? BE THE CORRECT ONE 

AD9F 

B .1 98 


LDA (R13) 

,Y 

ADAi 

855D 


STA *5D 


AD A3 

6 id 


RTS 





INCLUDE E 

>: SUBRTNS2 

AD A 4 


POINTER 

S 



00 B 2 

PRFORM 

= *B2 



— 00C0 

FL.DPTR 

= *C0 



= 00C2 

BUFTOF' 

= *C2 



~ 00 C 4 

BUFEND 

— *C4 



« 00C6 

RECLNG 

— *C6 



« 00 C 8 

RECCNT 

* *C8 



= 00CA 

CURF'TR 

= *CA 



= 00CC 

BROWSE 

« *CC 



= 00 CD 

CHNFLS 

- *CD 
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D1 SUBRTNS2. 


= 00CE 

LODFLG 

- $CE 



= 00CF 

EROFST 

« *cf 



- 00D0 

cimjptr 

« $D0 



= 00 D2 

SUMFLG 

- $D2 



- 00D3 

AVGFLG 

= $D3 


AD A 4 



PROC 


AD A 4 

:l. 8 


CLC 5 ESTAB 

POINTER TO 

ADAS 

a Ci o 
r* f -~J CJ ,i:.. 


LDA R2 ; BEGIN 

OF FLD DATA 

ADA7 

6587 


ADC R4+1 5 AFTER 

SCREEN DATA 

ADA9 

8SC0 


ST A FLDPTR 


ADAB 

AS 8 3 


LDA R2+1 


ADAD 

6900 


ADC #0 


ADAF 

bsc :i 


ST A FLDPTR+1 


ADD 1 

A000 


LDY #0 

; MULT FLDCNT 

ADD 3 

B 1 C0 


LDA ( FLDPTR ) ,Y 

5 BY 4 TO STEP 

ADDS 

0A 


ASL A 

5 OVR FLD DATA 

ADB6 

0A 


ASL A 


ADB7 

A 8 

.w* 

TAY 


ADDS 

C8 

fv 

I NY 

5 GET AND CON- 

ADB9 

B1C0 


LDA (FLDPTR) , Y 

5 VERT RECORD 

ADBB 

85BB 


STA CONREG 

; LENGTH 

ADBD 

CB 


I NY 


ADBE 

B 1 C0 


LDA < FLDPTR) , Y 


ADC0 

RSjRP 


STA CONREG+1 


ADC2 

2036 AE 


JSR CONVERT 


ADCS 

A5BB 


LDA CONREG 


ADC7 

8 SC 6 


STA RE CL NS 


A DC 9 

A5BC 


LDA CONREG+1 


ADCB 

85C7 

* 

STA RECLNG+ 1 


ADCD 

CB 

I NY 

; GET AND CON- 

ADCE 

18 


CLC 

; VERT RECORD 

ADCF 

98 


TYA 

; COUNT 

ADD0 

6SC0 


ADC FLDPTR 


j ADD2 

85D0 


STA CNTPTR 


ADD4 

A900 


LDA #0 


ADD 6 

6501 


ADC FLDPTR+1 


ADD8 

BSD 1 


STA CNTPTR +1 


ADDA 

B 1 C0 


LDA (FLDPTR) , Y 


ADDC 

8SBB 


STA CONREG 


ADDE 

C8 


I NY 


ADDF 

B1C0 


LDA (FLDPTR) ,Y 


ADE 1 

8 SBC 


STA CONREG+1 


ADE3 

2036AE 


JSR CONVERT 


ADE 6 

A5BB 


LDA CONREG 


ADE8 

8 SC 8 


STA RECCNT 


ADE A 

A5BC 


LDA CONREG+1 


ADEC 

8509 

-ft- 

STA RECCNT + 1 
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D1 :: SUBRTNS2. 

ADEE 

CS 


I NY 

; ESTAB ADDR OF 

ADEF 

QQ 

TO 


TYA 

u FORMAT AREA 

ADF0 

18 


CLC 


ADF 1 

65C0 


ADC 

FLDPTR 

ADF3 

85B2 


ST A 

REFORM 

ADF5 

A900 


LDA 

#0 

ADF7 

65C 1 


ADC 

FLDPTR + 1 

ADF9 

85B3 


ST A 

PRFORM+ 1 

ADFB 

A 000 


LDY 

#0 ; ESTAB ADDR OF 

ADFD 

B 3. C0 


LDA 

< FLDPTR) , Y ? TOP OF DATA 

ADFF 

0A 


ASL. 

A 5 BUFFER 

AE00 

6903 


ADC 

#3 

AE02 

1 8 


CLC 


AE03 

65B2 


ADC 

PRFORii 

AE05 

85C2 


ST A 

BUFTOP 

AE07 

8504 


ST A 

BUFEND 

AE09 

85CA 


ST A 

CURPTR 

AE0B 

A900 


LDA 

#0 

AE0D 

8 5 CD 


ST A 

CHNFLG 5 CLEARS CHANGE FLG 

AE0F 

85CF 


ST A 

EROFST 5 CLEARS ERROR OFFSET <USED IN STOREDIT) 

AE1 1 

85D3 


ST A 

AVGFLG 5 USED IN SUMMRY 

AE 3. 3 

65B3 


ADC 

PRFORM+ 1 

AE 1 5 

ncrp “T 

v.. 1 L/ 


ST A 

BUFTOP+l 

AE 1 7 

8bCb 


ST A 

BIJF'END + 3. 

AE 1 9 

S5CB 

V, 

ST A 

CURPTR+ 1 

AE1B 

A6C9 


LDX 

RECCNT+1 ;this rtn mpys 

AE1D 

A4C8 


LDY 

RECCNT 5 RECCNT BY 

AE 1 F 

D003 -'■AE 

24 : LBL 1 

BME 

: LBL 2 JRECLNG AMD ADDS 

AE2 1 

CA 


DEX 

S I T TO BUFTOP TO 

AE22 

3011 ••'•AE 

3 b 

BMI 

: LBL..3 ; ESTAB BUFEND 

AE24 

18 

: LBL2 

CLC 


A J"” cr 
H { u.. 

A5C4 


LDA 

BUFEND 

AE27 

65C 6 


ADC 

RECLNB 

AE29 

85C4 


ST A 

BUFEND 

AE2B 

i\ /•*•. cj* 

H \j w ■u.i 


LDA 

BUFEND + 1 

AE2D 

65C7 


ADC 

RECLNG+ 1 

AE2F 

pc:; per 


ST A 

BUFEND+ 1 

AE31 

88 


DEY 


AE32 

4C 1 F AE 


JliP 

LBL 1 

AE35 

60 

" LBL 3 

.ViU 

RTS 


AE36 

A6BB 

Jv 

CONVERT 

LDX 

CONREG; THIS RTN CONVERTS 

AE38 

8 A 


T X A 

52 BYTE BCD TO HEX. 

AE39 

29F0 


AND 

#$F 0 5 SEE P. 3.66 IN 

AE3B 

4 A 


LSR 

A 56502 ML SUBROUTINES 

AE3C 

85BB 


STA 

CONREG 5 FOR DET A I LS . 

AE3E 

4 A 


LSR 

A 

AE3F 

4 A 


LSR 

A 

AE40 

18 


CLC 


AE 4 1 

65BB 


ADC 

CONREG 



A T A R I li a c r o A s s e m h 1 e r 


Ver 


1 „ 0A Facie 



AE43 

85BB 


ST A 

COM RE (3 


AE45 

8 A 


T X A 



AE46 

290F 


AND 

#$0F 


AE4S 

163 


CLC 



AE49 

65 BB 


ADC 

C Oil RE (3 


AE4B 

635BB 


ST A 

CONREG 


AE4D 

A6BC 


LDX 

CONREG + 1 


AE4F 

A900 


LDA 

#0 


AES 1 

85BC 


ST A 

CONREG+1 

AES 3 

CA 

: LBL4 

DE X 



AES 4 

30 1 0 "'AE66 


BM I 

: LBLS 


AES 6 

18 


CLC 



AE57 

A5BB 


LDA 

CONREG 


AE59 

6964 


ADC 

# 1 00 


AE5B 

85BB 

* 

ST A 

CONREG 


AE5D 

ASBC 


LDA 

CONREG+1 


AE5F 

6900 


ADC 

#0 


AE61 

nc;pr 

W w 


ST A 

CONREG+1 


AE63 

4C53AE 


J MR 

: LBL.4 

* 

A E 6 6 

60 

2 LBL'5 

ft 

ft 

ft 

RTS 



AE67 


PROC 


AE67 

AE67 

A 9 00 

RET REV 

LDA 

#0 


AE69 

Q n:r p /**' 
L) '«J L: 


ST A 

BROWSE 


AE6B 

per. per 


ST A 

LODFLG ; DISABLES DEL,, CHG 


AE6D 

85D2 


ST A 

SUMFLG 


AE6F 

A9FF 

2 RET 1 

LDA 

#255 


AE7 X 

BDFC02 


ST A 

764 


AE74 

A201 

: RET 1 5 

LDX 

#1 


AE76 

207FA6 


JSR 

MESSAGES 


AE79 

20D0BF 


JSR 

COLRON 


AE7C 

A 9 00 

tt nr ,M TH 

LDA 

#0 5 KEEP INVFLG OFF 


AE7E 

8DB602 


ST A 

694 - 


AE8 1 

A 940 


LDA 

#$40 


AES 3 

8DBE02 


ST A 

7025- SHIFT LOCK 


AE86 

ADFC02 


LDA 

764 


AE89 

20E 1 BF 


JSR 

CLRKE Y ; CL.RS LOGO,, CAPSLOK 


AE3C 

C9FF 


CMP 

#255 


AE8E 

D0U ■■■"AEA1 


BNE 

: SELCT / ^ 


AE90 

AD 1 FD0 


LDA 

53279 (R” 1 

#3 


AE93 

C903 


CMP 


AE95 

D0E5 ■■■•AE7C 


BME 

: RET 2 


AE97 

2 06 CAD 


>3 SR 

KEYDLAY 


AE9A 

203EA5 


JSR 

SCREEN 


AE9D 

207EAD 


JSR 

L STL IN 


AEA0 

AEA1 

60 

2 SELCT 

RTS 



AEA1 

A5C8 


LDA 

RECCNT 



Ver 


ATAR I Macro Assemb 1 er 


0A 


Page 




1)1 : SUBRTNS 


AEA3 

D00C AEB 1 

AEA5 

A5C9 

AEA7 

D008 -AEB 1 

AEA9 

A205 

AEAB 

207FA6 

acflp 

n r t u. 

4C6FAE 

AEBl 

207EAD 

AEB4 

2029B9 

AEB7 

C950 

AEB9 

D003 --AEBE 

AEBB 

4CD3AF 

AEBE 

85BD 

AEC0 

A5D2 

Acr 

11 l... w j:.. 

F'007 -AECB 

AEG 4 

203EA5 

AEG 7 

A 9 00 

AEG 9 

S5D2 

AEGB 

A5BD 

AECD 

C946 

AECF 

D003 -AED 4 

AED 1 

4C39AF 

A ED 4 

C94D 

AED 6 

D00A -AEE2 

A EDS 

209EB7 

AEDB 

A90 1 

AEDD 

q c:; r\ 

V*»- %•»** 4*/ •!*•* 

AEDF 

4C6FAE 

AEE2 

C94 1 

AEE4 

D012 -AEF 8 

AEE6 

A90 1 

A EES 

85D3 

AEEA 

209EB7 

AEED 

A 9 00 

AEEF 

85D3 

AEF 1 

A901 

AEF3 

85D2 

AEF 5 

4C6FAE 

AEF 8 

C942 

AEF A 

D003 --AEFF 

AEFG 

4C72AF 

AEF F" 

C953 

AF01 

D003 -AF06 

AF03 

4C99AF 

AF06 

r* q o 

AF0B 

D009 '"AF 1 3 

AF0A 

20E4B2 

AF0D 

207 E AD 

AF 1 0 

4C6FAE 

AF 1 3 

A6CE 

AF 1 5 

D008 - AF 1 F 

AF 1 7 

A20B 


!! SEL i 


« Cpj 1 

it uJ !..., I.... 4, \,.J 


u CC'I 
M 4..) L- 


'"l 


u C' r " } o 

u !.«. 


:: SEL 26 


: SEL 3 


: SEL 31 


..c 


LDA 

BNE 


I SEL 1 
RECCNT+ 1 
: SEL 1 
#5 — - 


pvuT 


JSR 
J MP 
JSR 
JSR 

’MP 


MESSAGES 

:: ret 1 

LSTL I N 

GET 1 ■ 

#80 
« c' ir | -i c. 

«l W iMf Iwtf .I. W 

: PRNT 
HOLDA 
SUMFLG 

: SEL 16 ; IS PRINT (80) 

SCREEN 
#0 

SUMFLG 
: SEL 16 LDA HOLDA 


J MP 
ST A 
LDA 


5 MUST REFRESH 
; SCREEN IF SUM 

; JUST DONE UNLESS 
q THIS SELECTION 


JSR 
LDA 
ST A 


CMP 

BNE 

JMP 

CMP 

BNE 

JSR 

LDA 


qpi p 

%-*-* It. .. Ju. 



a&> 


" 7 7 .* /v\ 


! *«. It..* 


ST A 


: FWD 

-W. “* 

# / 

: sei 

SUMMRY 
# 1 — 
SUMFLG 
JMP q RET 3 
CMP #65)8, 
BNE :: SEL26 
LDA #1 
STA AVGFLG 
JSR SUMMRY 
LDA #0 
STA AVGFLG 
LDA #1 
STA SUMFLG. 
JMP : RET IX 


50 ^ 


1 

vT) 




r ^ 



F 


v> 

A 


A 

\J 


% 6 
^ t 


l 

c 


«- 

x> 


'V, 

vj. 


tr" 


BNE SEL 4 
LDX #11 










ft 


T5 tr ' 
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D 1 : SUBRTNS2 .. 


AF 1 9 

207FA6 


J SR MESSAGES 

AF 1 C 

4C6FAE 


JMP : RET1 


AF 1 F 

C943 

: BEL 4 

CMP #67 '''-I 


AF21 

D005 ""AF23 


BME : SEL5 

oo 

AF23 

A20 1 


LDX #1 

AF25 

4CB6AF 


jmp :chnqJ 


AF2S 

0950 

: SEL5 

CMP #80 \ 


AF2A 

D003 "AF2F 


BME :SEL6 

h< 

AF2C 

4CD3AF 


JMP :PRNX> 

1 

AF2F 

0944 

: SEE 6 

CMP #68 \ 


AF31 

D003 '"'AF"' 36 


BME : SEL8 

] Q 

i.... ~*r M, r 

Hr oo 

4CDCAF 


JMP : DELT j 

1 0 

AF36 

4C6FAE 

: SEEL. 8 

JMP : RET ij 


AF39 

18 

S FWD 

CLC 


AF3A 

A5CC 


LDA BROWSE 


AF3C 

F02A '-AF68 


BEQ FWD 1 


AF3E 



ADD 16 RECL.NG 

AF3E 

+ 1 8 


CLC 


• » Mill iMJI not 

Hr -.:>r 

+A5CA 


LDA CURPTR 


AF4 1 

-1-6506 


ADC RECLNG 


AF43 

+B5CA 


ST A CURPTR 


AF45 

+A5CB 


LDA CURPTR+1 

AF47 

+6507 


ADC RECLNG+1 

AF49 

+85CB 


ST A CURPTR 

4 1 

AF4B 

A 000 

: FWD0 1 

LDY #0 


AF4D 

B 1 CA 


LDA (CURPTR) 

AF4F 

C99B 


CMP ttEOL 


AF5 1 

D01 5 •■••AF6S 


BME 1 FWD 1 


AF53 



SUB 16 RE CL 

MG 

AF53 

4-38 


SEC 


AF54 

+A5CA 


LDA CURPTR 


AF56 

+-E5C6 


SBC RECLNG 

i 

AF5S 

+85CA 


STA CURPTR 

AF5A 

+A5CB 


LDA CURPTR 

•H. 

AF5C 

+E5C7 


SBC RECL.NG+ 1 

AF5E 

+85CB 


STA CURPTR+1 

AF60 

A203 


LDX #3 


AF62 

207FA6 


JSR MESSAGES 

AF65 

4C6FAE 


JMP : RET1 


AF68 

20F4AF 

: FWD 1 

JSR LOAD 


AF6B 

A 901 


LDA #1 


AF6D 

q f" n 


STA BROWSE 


AF6F 

4C6FAE 


JMP RFT 1 


AF72 

A5CA 

’ : BKWD 

LDA CURPTR 

AF74 

/*"• ET 

(f./ v..* i,*/ •!••• 


CMP BUFTOP 

t 

AF76 

D00E ""AF86 


BME :BKWD1 


AF78 

A5CB 


LDA CURPTR 

:-h1 

AF7A 

0503 


CMP BUFTOP 

'4 i 

AF7C 

D& 03 "'AF86 


BME » BKWD 1 


AF7E 

A 20 2 


LDX #2 


AF80 

207FA6 


JSR MESSAGES 








:URPTR+ 1 




©C-" 


+- l (_tF 



«o 


© ^ 


e- 


( c 


& 
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D 1 SUBRTNS2 


0 ** 4C6FAE 
38 

A5CA 
E5C6 
85CA 
A5CB 
ESC 7 
85CB 
20F4AF 
4C6FAE 
20D6BF 
203EA5 
A209 
207FA6 
A 20 1 
2009 A 4 
207EAD 
A200 
iFAE 86 BA 


AF86 
AF87 
AF89 
AF8B 
AF8D 
AF8F 
AF9 1 
AF93 
AF96 
AF99 
AF9C 
AF9F 
AF A 1 
AFA4 
AFA6 
AFA9 
AFAC 
A 

AFB0 
AFB3 
AFB6 
AFB9 
AFBB 
AFBE 
AFC0 
AFC2 
AFC4 
AFC 6 
AFC 8 
AFC A 
AFCD 
AFCE 
AFD0 
AFD3 
AFD6 
AFD9 
AFDC 
AFDF 
AFE I 
AFE 4 
AFE 7 


BKWD 1 


20CDB0 

4C74AE 

20D6BF 

A20 1 

2009A4 

A5CA 

8590 

A5CB 

859 1. 

A90 1 
85CD 
200 6 AC 
98 

D0E6 -‘'AF 

4C6FAE 

20D6BF 

20F4B2 

4C6FAE 

20D6BF 

A206 

207 FAS 

2029 B 9 

C959 


; CHN 


; PR NT 


BELT 


JMP 

SEC 

LDA 

SBC 


ST A 


LDA 



: RET.t 

CURPTR 

RECLNG 

CURPTR 

CURPTR+1 

RECLNG+1 

CURPTR+- 1 

LOAD 

1 








COLROF 
SCREEN 
#9 

MESSAGES 
#.l 

ENTDAT 

LSTLIN - fcxorcnP. to 




?_ crv4 D PEo ^ 

of 


STX 
J SR 
JMP 
JSR 
LDX 
JSR 


ST A 


LDA 


\ H 


LDA 
ST A 
JSR 
TYA 


ST OR 


> 


J MP 
JSR 
JSR 


PRNTSW * 

SRC HI — 

: RET. 15 
'COLROF 
#1 

ENTDAT 
CURPTR 

R9 ; CBUFFLO IN 
CURPTR+ 1 
R9+1 
#1 

CHNFLG 

CHNGDAT 5 (IN STORDAT) 

5 Y IS FLAG J.NDICAI 
: CHNG SING EDIT FAILURE 
: RET 1 
COLROF 
SCRNPR 


JMP :: RET 1 

JSR COLROF _ L , n£r 

LDX #6 PS 

JSR MESSAGES J 
JSR GET 1. 


/ 


7^> 


t> <P~£r 


7 Sr 


m 


AFE 9 

D003 -‘-AFEE 

/ 

"BNE : DEL XT 

AFEB 

204DB0 

| 

JSR CLOSUP 

AFEE 

207EAD 

:: DEL XT' 

JSR LSTLIN 

AF F I 

4C4BAF 

.ill. 

JMP ; FWD01 

AFF4 


fv 

LOAD 



* 0090 

: BIJFFLO 

DO 

Pi 7 


=* 0091 

: BUFFHI 

= R9+1 


* 0092 

: SCRNLO 

= R 1 0 
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D1 : SUBRTNS2. 


- 0093 

: SCRNH I 

= R10+-1 



== 0094 

: BUFFPT 

- R 1 1 



= 0095 

; SCRNF'T 

= R 1 1 + 1 



= 0096 

: CTRLO 

= R12 



«* 0097 

; CTRHI 

= R12+1 


AFF4 

A 90 1 


LDA #1 


AFF6 

qcrp 


ST A LODFLG 5 ENABLES DEL. 

CHG 

AFF8 

A5CA 


LDA CURPTR 


AFFA 

8590 


STA BUFFLO 


AFFC 

A5CB 


LDA CURPTR + 1 


AFFE 

859 1 


STA “ BUFFH I 


B000 

A559 


LDA $59 


B002 

8593 


STA : SCRNH I - 


B004 

A 55 8 


LDA $58 - 


B006 

8592 


STA : SCRNL..0 - 


B008 

A 050 


LDY #80 - 


B00A 

8495 


STY : SCRNF'T 


B00C 

A 000 


LDY #0- 


B00E 

8494 


STY : BUFFPT 


B0 1 0 

A 94 8 


LDA #$48- 


B012 

8596 


STA ” CTRLO 


B01 4 

A 9 03 


LDA #3 


Ei0 1 6 

8597 


STA : CTRHI 


B0 1 8 

A 4 95 

: L 1 00 

LDY ; SCRNPT- 


B0 1 A 

B 1 92 


LDA CSCRNLO) ,Y 


B0 i C 

2980 


AND #$80 


B01E 

F00E •-“B02g: 


BEQ : L200 


B020 

A494 


LDY ; BUFFPT 


B022 

B 1 90 


LDA <; BUFFLO >,Y 


B024 

18 


CLC 


B025 

6960 


ADC #96 


B027 

A 4 95 


LDY : SCRNF'T 


B029 

9192 


STA CSCRNLO) ,, Y 


B02B 

2034B0 


JSR : IIMBFPT 


RfViP'P 

A** /*** **“* 

203BB0 

; L200 

JSR : I NS CRT 


B03 1 

4C 1 8B0 


JMP :L100 




¥r 



B034 

E694 

: INBFF’T 

INC : BUFFPT 


B036 

D002 "-B03A 


BNE : INBFXT 


B038 

E691 


INC : BUFFH I 


B03A 

60 

: INBFXT 

V 

RTS 


B03B 

E695 

wr 

: IN SC FT 

INC : SCRNF'T 


B03D 

D002 X *B04 1 


BNE : DECCTR 


B03F 

E693 


INC : SCRNH I 


B04 1 

C696 

; DECCTR 

DEC : CTRLO 


B043 

D004 •'"B049 


BNE : I NSC XT 


B045 

C697 


DEC : CTRHI 


B047 

3001 *'"B04A 


BMI : LOAD XT 


B049 

60 

: I NSC XT 

RTS 


B04A 

68 

: LOAD XT 

PL..A 




A 
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D1 : SUBRTNS2. 

8048 

68 


PL A 

B04C 

60 

K- 

RTS 

EPROC 



k- 


B04D 



PROC 

804 D 

A5CA 

CLOSUP 

LDA CURF'TR 

B04F 

8580 


STA R 1 

8051 

8582 


STA R2 

8053 

A5C8 


LDA CURPTR+1 

8055 

858 1 


STA Rl + 1 

8057 

8583 


STA R2+1 

8059 



ADD 1 6 RECLNG , RECLNG+ 1 , R2 , R2+ 1 

8059 

+ 1 8 


CLC 

8 05 A 

+A582 


LDA R2 

805C 

+65C6 


ADC RECLNG 

B05E 

4-8582 


STA R2 

8060 

4A583 


LDA R2+1 

8062 

465C7 


ADC RECLNG+1 

8064 

48583 


STA R2+1 

8066 

A 000 

.1 TOP 

LDY #0 

8068 

8 1 82 


LDA ( R2 ) , Y 

8 06 A 

9 1 80 


STA <R1>,Y 

80 6 C 

C998 


CMP #EOL. 

80 6 E 

F0 1 D -•B08D 


BEQ ; AD J TOT 

8070 


: CONT 

ADD 16 #1 #0, R 1 Rl + 1 

8070 

4 1 8 


CLC 

807 1 

4 A 580 


LDA R1 

8073 

4690 1 


ADC #1 

8075 

485 80 


STA R1 

8077 

4 A 58 1 


LDA Rl+1 

8079 

46900 


ADC #0 

8078 

4858 1 


STA Rl+1 

8071) 



A D D 1 6 # 1 , # 0 ,, R 2 , R 2 + 1 

80 7 D 

4 1 8 


CLC 

807 E 

4 A 58 2 


LDA R2 

8080 

4690 .1. 


ADC #1 

8082 

48582 


STA R2 

8084 

4 A 58 3 


LDA R2+1 

8086 

46900 


ADC #0 

8088 

48583 


STA R2+ 1 

808 A 

4C66B0 


JMP " TOP 

8081) 

A5C0 

: AD J TOT 

LDA FLDPTR ; THIS SECTION 

B08F 

8580 


STA R1 ; FINDS TOTAL 

809 1 

A5C 1 


LDA FLDPTR +1 5 RECORD COUNT 

8093 

858 1 


STA Rl+1 

8095 

A 000 


LDY #0 

8097 

8 1 80 


LDA ( R 1 ) , Y 

8099 

0A 


ASL A 

8 09 A 

0A 


ASL A 
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D1 : SUBRTNS2. 

1309.8 

A 8 


TAY , 

B09C 

no 
L/ o 


I NY 

B09D 

C8 


I NY 

B09E 

PR 


I NY 

B09F 

FB 


SET) 5 THIS SECTION 

B0A0 

38 


SEC 5 SUBTRACTS ONE 

B0A 1 

B 1 80 


EDA <R1>,Y ", FROM BOTH TOTAL 

B0A3 

E90 1 


SBC #1 ; RECORD COUNTS 

B0A5 

9 1 80 


ST A < R 1 ) , Y 

B0A7 

CS 


I NY 

B0AS 

8 1 80 


EDA ( R 1 ) Y 

B0AA 

E900 


SBC #0 

B0AC 

9180 


STA < R 1 ) , Y 

B0AE 

D8 


CLD ^ 

B0AF 



SUB 16 # 1 , #0 , RECCNT , RECCNT+ 1 

B0AF 

+38 


SEC 

B0B0 

+A5C8 


EDA RECCNT 

B0B2 

+E90 1 


SBC #1 

B0B4 

+B5C8 


STA RECCNT 

B0B6 

+A5C9 


EDA RECCNT +■ 1 

B0B8 

+E900 


SBC #0 

B0BA 

+85C9 


STA RECCNT +1 

B0BC 



SUB .1 6 RECENG RECLNG+ 1 , BUFEND , BUFEND+- 1 

B0BC 

+38 


ccr 

B0BD 

+A5C4 


EDA BUFEND 

B0BF 

+E5C6 


SBC RECENG 

B0C 1 

+85C4 


STA BUFEND 

B0C3 

+A5C5 


EDA BUFEND+ .1 

B0C5 

+E5C7 


SBC RECLNG+1 

B0C7 

+85C5 


STA BUFEND+1 

B0C9 

203EA5 


JSR SCREEN 

B0CC 

80 

•K- 

RTS 



ft 

# 


B0CD 



PROC 

B0CD 


SRCH 1 



5= 0000 

: SCREW 

* R 1 


« 0082 

: YHOLD 

= R2 


« 0083 

: CLPTR 

~ R2+1 


= 0004 

: FDCNT 

= R3 


= 0085 

: VBFLG 

* R3-KI 


::=: 0088 

: KYLNG 

***** 


= 0087 

:: FDLNG 

= R4+1 


— 0088 

: OFSET 

= R5 


= 008 A 

.1 STFLG 

= R8 


» 0088 

: RGFLG 

= R6+1 


« 008C 

: CHEKS 

« R7 


= 008E 

: TMCTR 

= R0 


« 0400 

: TEMP 

™ *400 







* F 1 ND 

P08 OF FLDS AND CALC OFFSET 
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D1 : SUBRTNS2. 





B0CD 

A000 


LDY #0 

B0CF 

B4B8 


STY : OFSET 

B0D 1 

8489 


STY : OFSET+1 

B0D3 

B 1 C0 


LDA ($C0) , YS # OF FLDS 

B0D5 

8584 


ST A : FDCNT 

B0D7 

A A 


TAX L 

B0D8 

C8 

: L 1 0 

I NY 

B0D9 

C8 


I NY . 

B0DA 

C8 


I NY ... 

B0DB 

C8 


I NY - 

B0DC 

IS 


CLC 

B0DD 

B 1 C0 


LDA C$C0> , Y 

B0DF 

6588 


ADC : OFSET 

B0E1 

8588 


ST A : OFSET 

B0E3 

A 9 00 


LDA #0 

B0E5 

6589 


ADC : OFSET+1 

B0E7 

8589 


STA : OFSET+1 

B0E9 

CA 


DE X 

B0EA 

D0EC 

"B0D8 

BNE :: L 1 0 







* TOP OF KEY FIND LOOP 



*r 


B0EC 

B 1 C0 

f— ; L. 1 i 

LDA { $C0 > , Y 

B0EE 

8587 

1 

/ 

STA : FDLNG ' 

B0F0 


/ 

SUB .1 6 :: FDLNG , #0 , ; OFSET , : OFSET + 1 

B0F0 

+38 


8FP 

B0F 1 

+A588 


LDA : OFSET ‘ 

B0F3 

+E587 


SBC : FDLNG * 

B0F5 

+8588 


STA : OFSET 

B0F7 

+A589 


LDA :: OFSET+1 

B0F9 

+E900 


SBC #0 

B0FB 

+8589 


STA : OFSET+1 

B0FD 

88 

M. 

DEV 



7T 

* CALC 

SCREEN LOCAT I ON 



* 


B0FE 

A558 


LDA $58 ’ 

B 1 00 

8580 


STA : SCREN • 

B 1 02 

A 5 59 


LDA $59 ■ 

B 1 04 

858 1 


STA : SCREN+1 

B 1 06 

B 1 C0 


LDA ( $C0 ) , Y • 

B 1 08 

A A 


TAX • 

B 1 09 

CA 

: L 1 2 

DEX - j 

B10A 

30 1 0 

'"'B 1 1 C ^ 

Bill :L13 

B 1 0C 

18 


CLC j 

B10D 

A 580 


LDA : SCREN • 

B 1 0F 

6928 


ADC #40 

Bi i i 

8580 


STA : SCREN 

B 1 1 3 

A 58 1 


LDA : SCREN+1 

B 1 1 5 

6900 


ADC #0 

• 
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B 1 1 7 
B 1 1 9 
B1 1C 
B 1 .1 D 
B 1 1 E 
B 1 20 
Ed 22 
B 1 24 
Ed 26 
Ed. 28 


B 1 2 A 
B 1 2C 
B12E 
B 1 2F 
B 1 3 1 
B1 3 3 
Ed 3 5 


fct 1 -3 / 

E<1 39 
B 1 3 A 
B 1 3B 
B 1 3D 
B 1 3F 
.6142 


B145 
B 1 47 
.8149 
B14B 
B14D 
B14F 
B 1 5 1 
B153 
B 1 55 
B156 
B 1 58 
B 1 SB 
B 1 5D 
B 1 5F 
B 1 6 1 
B1 63 
B 1 65 
B1 66 


8581 
4C09B 1 


.18 

B 1 C0 
6530 

8580 
A900 
658 1 

858 1 


848? 

A 0FF 
n q 

B 1 30 
C9S0 
F0F9 
B00E 


«•» »*l •#♦** MW 

-■•B 1 45 


A482 
88 


C684 

F003 

4CECB0 

4C4BB2 


1 96 


A 2 00 
868 A 
86SB 
8685 

CJ O W O 

B 1 80 
C98 X 
904 1 
38 

E960 

91)0004 

PQCJC 

u." ♦* W L., 

D018 -'•Ed 77 
A900 

8588 

8589 
38 

rt jjv* /♦% / 


STA : SCREN+ 1 
JMP : L 1 2 


L .1 3 


CLC 
L DA 
ADC 
STA 
EDA 


i $C0 ) , Y 
: SCREW 


“ ‘-if : 


STA 


;! SCREW*- 1 
: SCREW* 1 




* LOOK FOR KEY 

STY : YHOL.D 
LDY #$FF 

:Li4/ iwy 

F LDA ( : SCREW ) „ Y 


-K- 

¥r 


\ CMP #$80 

N BEQ :L14 

BC8 : L 1 5 

NO KEY IN FIELD 


<UiU 


75° 


T< 


o 




: WXFLD LDY : YHOLD 

DEY : 




r 








S 




p 


yO 



DEY 


* KE 

* 

: L 1 5 


JMP 
JMP 

FOUND 

LDX 
STX 
SIX 


: FDCWT 
: L 1 45 
: L 1 1 
:: ALDON 


MOVE TO TEMP 


: L 1 6 


STX 

LDA 

CMP 


2 ST FLO 
: RGFLG 
: VBFLB 

: kyl.no 
■: : scre 


) v 

ff * 






:: L 1 9-s,^ ae v 5 p.4c 






v SBC # 4 ; 60 - 
STA : TEMP , X 
CMP #$5E CAR AT. 
BNE :L164 
LDA #0 





c? rc U. 


O' 


TA : OF SET 


STA :0FSET+1 

err 

V*» f Itftf «**f 

LDA RECLNG 
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D1 : SUBRTNS2 


B 1 84 
B 1 86 
B 1 99 
B 1 SB 
B1SD 
B 1 SF 
B .1 9 1 
B192 
B193 
E<196 
B 1 98 
B 1 9B 
B 1 91) 
B 1 9F 
B 1. A0 
B 1 A2 
B 3. A 4 
B 1 A 6 
B 1 AS 
B 1 A A 
B 1 AC 
B 1 AE 


E *** I! 4 ** * 

“5 8 « 

858C 
A5C7 
E900 
858D 
E68C 
4CB7B 1. 

C95C 

D005 ""B 1 80 
S58A 
4C9 1 B 1 
C99C 

D005 '"'B .1 89 

8585 

4C9 1 B 3. 

A58B 

058A 


SBC 


85 8 B 

E8 

CS 

4C4DB 1 

A99B 

9D0004 

A 9 00 

358D 

38 

ASS 7 
ESS 6 
858C 
E68C 
A585 


307 


A5SA 
F 007 


"BIB 7 


B.IB0 20ADB6 

B 3. B3 A90 3. 
B3.B5 858C 


2 L i o 4 


: L 3. 65 


2 L 1 7 


2 L 3. 8 


L 3. 9 


LDA 
SBC 
ST A 


3 MP 
CMP 
BME 
ST A 
JMP 
CMP 
BME 
ST A 
JMP 
LDA 
ORA 
ORA 


{•“• *T* /\ 

C 5 I H 


:: KYLNG 
: CHEKS 
RE CL MG +3. 
#0 

:: CHEKS+i 
: CHEKS 
:L20 qZ- 
#$5Cf BA 


5C; BACK SLASH 4> \ 




2L3.65 

: STFLG — ^ 

2 L.. 3. Ei [gU 

#$9Cf VERT BAR 
2 L 3. 7 

2VBFLG — yjt& 
2 L 1 8 
2 RGFLG 
2 STFLG 
2 VBFLG 
2 RGFLG 




Ar-** 

yj (CA C ^LA Or- 




o^cy 

~ ruu~r |~uLC p((rtb 


I NX • 

I NY 

JMP 2 L 3. 6 
LDA #EOL 
ST A 2 TEMP, X 
LDA #0 - 
ST A 2 CHEKS+ 

/**\ I***' /***i ♦ 

bfcr,L 

LDA « FDL.NG * 

SBC « KYLNG - 
cta « rur^Q - 


“ CHEKS + 1 


I NC 
LDA 
B HE- 
LD A 


, MM Min 

/ 

1/ JSR 


2 FDLNG • 
2 KYLNG - 
2 CHEKS * 

2 CHEKS •’ 
2 VBFLG ■ 
2 L 1 95 
2 STFLG - 
2 L20 

SORT - 


_ fO Li- \U (c't£.^ 6 «• 

r-'fcflac s L fS 


1, 

2 L. 1 95/ 


LDA #3. 

STA 2 CHEKS 


^CS>^JT F'CCG 

th<s Cx> 


0080 


2 TMPTR 


AKrpO 
f*”( w L/ 

85CA 
A5C3 
85CB 
A000 
B 1 CA 
C99B 




« | 20 

n U. ’ 


L21 


1 CA 


LDA BUFTOP 
STA CURPTR 
LDA BUFTOP + 1 
STA CURPTR+1 
L..DY #0 

LDA (CURP TR) ,, Y 
CMP #EOL 
BNE 2 L22 


.1. ■> 0 H I'"’ a Cj e 
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D 1 : SUBRTNS2 


M / 


4C37B1 


B 1 C A 

18 

B 1 CB 

A5CA 

E<1 CD 

6588 

B 1 CF 

8580 

B 1 D 1 

A5CB 

B 1 D3 

6589 

B 1 D5 

858 1 

B 1 D7 

A58C 

B 1 D9 

858E 

B 1 DB 

A58D 

B1DD 

85SF 

B 1 DF 

A2FF 

B1E1 

A0FF 

B1 FT 

E8 

B 1 E4 

C8 

B1E5 

BD0004 

B1EB 

C99B 

B 1 EA 

F036 -B222 

B 1 EC 

C95E 

B 1 EE 

P-'f/i “=!'? O O O 

| Jh* »ki, A»r ikw «l«i »!*•* 

B 1 F0 

C95C 

B 1 F2 

F02E --B222 

B1F4 

C99C 

B1F6 

F02A •""13222 

B 1 FS 

C93F 

B1FA 

F0E7 ••"'B1E3 

B 1 PC 

D 1 80 

B i FE 

F0E3 ""B 1 E3 

B200 

B007 -13209 

B202 

A58B 

B204 

F003 ""B209 

B206 

4C2SB2 

8209 

C68E 

B20B 

D004 ""B2 1 1 

B20D 

C68F 

B20F 

3009 ""Ei 2 1 A 

821 1 

E6S0 

B2 1 3 

D002 •-B217 

B2 .1 5 

E 681 

B217 

4 CDF Ei 1 


B2 1 A 

A000 

B21C 

B 1 CA 

B2 1 E 

0980 


.jsf. 

if 

if 


ALL 


* 

« I r>z 

c« a »«- .i. 


: L. 

: L24 

A 


i '*■;» 

(mm tkt> \ »» » 


if 


DATA 

JMP 

CLC 
LDA 
ADC 
ST A 
LDA 
ADC 
ST A 
LDA 
ST A 
LDA 
ST A 
LDX 
LDY 
I M X 
I MY 
LDA 
CMP 


SEARCHED 
: NXFLD 


CURPTR 
: OF SET 
: TMPTR 
CURPTR-*- 1 

: OF SET 4- i 
TMPTR 4- 1 

S CHEKS 
: TliCTR 
: CHEKS 4 - 1 

: TMCTR+1 

#$FF’ 

#$FF 


CMP 




BCS 

LDA 



JMP 

DEC 

BNE 

DEC 


I NC 

C BNE 
INC 
JMP 


* SET HIGH 

if 

: NXREC LDY 

LDA 

ORA 


: TEMP, X ■ 

#EOL. • 

: FOUND- 

#$5Ej CARAT *4 
: FOUND 

#$5C5 BACK SLASH \ 

5 FOUND 

#$905 VERT BAR J 
: FOUND 

#$3F; QUESTION MARK . 

: L..24 • 

C TMPTR) ,, Y 
; L24 - 

;; L..25 ’°' >7 0 U Qc L 

: RGFLB • ^ 

"A 25 - CBcrLO <F C 

: RANGE- 
: TMCTR - 

• j ri'Ft 1 

: TMCTR+1- 
: NXREC • " 

: TMPTR 
#+4 

: TMPTR+l 

» J 
at }*•*• 

BIT IF NOT A FOUND RECORD 


t>c? 




( CURPTR > ,, Y 
#$80 
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D1 : SUBRTNS2 


B 220 

9 1 0 A 


ST A 

(CURPTR) , 

p r? ' *;> r ;* 

20D6B2 

: FOUND 

J SR 

: ADLNG 

P K", 

Att* •!»♦* 

4CBFB 1 


JMP 

" L 2 1 



* COMPARES 
1/ 

TO SECOND 

B228 

E 8 

•K’ 

: RANGE 

I NX 


B229 

BD0004 


LDA 

: TEMP, X 

R*?r?r 

C95C 


CMP 

#$5C \ 

P??P 

A** *!••* "•« 

F 004 •-B234 


BEQ 

u j i nr Q 

n »iL. v../ 

B230 

C99C 


CMP 

#$90 f 

B232 

B0F4 ■•"B228 


BNE 

: RANGE 

B234 

A0FF 

" } ?*=jQ 

n i.... / 

LDY 

#*FF 

B236 

08 

” i 26 

tt a«* 

I NY 


.cl -J 1 •• 

E 8 


I NX 


B238 

BD0004 


LDA 

: TEMP, X 

B23B 

C99B 


CMP 

#EOL 

B23D 

F0E3 "-B222 


BEQ 

: FOUND 

B23F 

09 3 F 


CMP 

#$3F; QUE 

B24 1 

F0F3 ""B236 


BEQ 

: L26 

B243 

D 1 80 


CMP 

( : TMPTR > , 

B245 

F0EF -B236 


BEQ 

: L26 

B247 

B0D9 ■'43222 


BCS 

: FOUND 

B249 

90CF ""B2 1 A 

.k, 

npr 
Jfc? W 

: NXREC 



* PR INI 

r or 

DISPLAY F 

B24B 

A5C2 

-ft- 

: ALDON 

LDA 

BUFTOP 

B24D 

850 A 


ST A 

CURPTR 

B24F 

A5C3 


LDA 

BUFTOP+ 1 

B25 1 

85CB 


ST A 

CURPTR i- 1 

B253 

A 000 

: L27 

LDY 

#0 

B255 

B 1 0 A 


LDA 

(CURPTR) , 

B257 

C99B 


CMP 

#EOL 

B259 

F03D ••••B298 


BEQ 

: OUT 

B25B 

B 1 C A 


LDA 

(CURPTR) , 

B25D 

1006 -13265 


BPL 

: H i T 

B25F 

20D6B2 

: L28 

JSR 

:: ADLNG - 

B262 

4C53B2 


JMP 

*$ \ 07 

xi I... •&» / 

B265 

A5BA 

; H I T 

LDA 

PRNTSW s 

B267 

D03B -B2A4 


BNE 

SPRINT - 



ft 



B269 

20F4AF 


JSR 

LOAD 

B26C 

A 20 A 

TV 

LDX 

# 1 0 

B26E 

207FA6 


JSR 

MESSAGES 

B27 1 

A20 1 


LDX 

#1 

V*% “*v "T 

B *•:. / *-:■ 

207FA6 


JSR 

MESSAGES 

B276 

20D0BF 


JSR 

COLRON 

B279 

A9FF 


LDA 

rtt^crcr, 

TV .t«. vJ 

B27B 

8DFC02 


STA 

764 


Y 


p 


5 T j4 (V7 7-0 0 

( ^3 cr~r ro ^ 


> f 
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D1 ; SUBRTNS2 


H 


B27E 

ADFC02 

B281 

C9FF 

B2S3 

D01B ••"•B2A0 

B285 

AD1FD0 

B288 

C906 

B28A 

D006 -6292 

B28C 

20 6 CAD 

B28F 

4C5FB2 

Lj Q 

A**’ |Ih> / *I»M 

C903 

B294 

D0ES •-•B27E 

B296 

F005 ••'•B29D 

B298 

A203 

B29A 

207 FAS 

B29D 

20E4B2 

B2A0 

20B1B2 

B2A3 

60 

B2A4 

20D2B5. 

B2A7 

ADl. FD0 

B2AA 

C903 

B2AC 

F0EA -B298 

B2AE 

4C5FB2 


nno -1 
Jp ,4i irj J. 

A5C2 

B2B3 

8583 

Cj *"> p k::; 

,W 4l!» IJ 

a j^r p 

n %J w • J* 

B2B7 

8584 

B2B9 

A 000 

B2BB 

B 1 83 

B2BD 

C99B 

B2BF 

F014 A B2D5 

B2C 1 

297F 

B2C3 

9183 

rj ‘“7 j r- 
D JU* L/ 


B2C5 

4- 1 8 

B2C6 

4-A583 

B2C8 

4-65 C 6 

B2CA 

4-8583 

B2CC 

4-A584 

B2CE 

+65C7 

B2D0 

-t-8584 

n9n? 

4CBBB2 

B2D5 

60 


B2D6 


B2D6 

4-18 

B2D7 

4-A5CA 

B2D9 

4-65C6 


: L29 


LDA 764 
CMP #255 


: 0UT2 

cr ’**7 o 

•#•«* J* / 




BNE 
LDA 
CMP #6 
BNE : L30 




C & 


A&>^ ( 


nJ 


« } *^0 
N *.... 


OUT 

OUT 1 
OUT 2 


JSR KEVDLAY- 
JMP : L28 ■ 

CMP #3 ‘ ^ 

BNE :L29- S ' 1 
BE (3 : OUT 1 
,-*> LDX #3 

JSR MESSAGES 
JSR RESET 
JSR CLEAR 






<T 


(5P ( ZlL & 


* 


: PR I NT 


RTS 


JSR FPRINT 
LDA 53279 
CMP #3 
BEQ "OUT 
JMP :L28 


«• 


* SUBROUTINES 
CLEAR LDA BUFTOP 


ST A 


11 

11 


: L3 1 


< 


tt La .1... 

ft- 

: ADLNG 


CLPTR 

LDA BUFTOP+1 
ST A :: CLPTR 4. I 
LDY #0 

LDA C CLPTR) ,, Y 
CMP #EOL 
BEQ ” L32 
AND #$7F 
ST A < : CLPTR) Y 

A D D 1 6 R E CL N G,RECLNG+1,:C L P T R , : C L P T R ■+■ 1 
CLC 

LDA : CLPTR 
ADC RECLIMG 
: CLPTR 
: CLPTR 4-1 
ADC RECLNG+1 
ST A :: CLPTR+l 
JMP :L31 
RTS 


STA 

LDA 


ADD 1 6 RECLNG , RECLNG+ 1 , CURPTR , CURPTR+ 1 


LDA CURPTR 
ADC RECLNG 
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D1 : SUBRTNS2. 


B2DB 

4 85C A 


STA CURPTR 

B2DD 

+A5CB 


EDA CURPTR 4- 1 

B2DF 

+65C7 


ADC RECLNG41 

B2E 1 

4-85CB 


STA CURPTR 4-J. 

B2E3 

60 

■¥r 

RTS 

EPROC 

B2E4 

A5C2 

RESET 

EDA BUFTOP 

B2E6 

85CA 


STA CURPTR 

B2EB 

A5C3 


EDA BUFTOP+1 

B2EA 

85CB 


STA CURPTR+1 

B2EC 

203EA5 


,3 SR SCREEN 

B2EF 

A900 


EDA #0 

B2F1 

85CC 


STA BROWSE 

.82 F 3 

B2F4 

B2F4 

60 

*• 

* 

SCRNPR 

RTS 

INCLUDE D: SUBRTN 
PROC 


= 0080 

: SCRNL.O 

= R1 


= 0081 

: SCRNH I 

= Rl + l 


= 0082 

: ROWCTR 

= R2 


= 0083 

: F'RFLAG 

= R2+-1 

B2F4 

18 


CEC 

B2F5 

A 55 8 


LDA $58 

B2F7 

6950 


ADC #80 

B2F9 

8580 


STA r. SCRNEO 

B2FB 

A559 


EDA $59 

B2FD 

6900 


ADC #0 

B2FF 

858 1 


STA : SCRNH I 

B301 

A 9 1 5 


EDA #21 

B303 

8582 


STA : ROWCTR 

8305 

20ECB8 


JSR QPNPRNT 

B30S 

A5B9 


EDA OPNERR 

B30A 

F001 •-B30D 


BEQ : TOPI 

B30C 

60 


RTS 

.830 D 

C682 

: TOP 1 

DEC : ROWCTR 

B30F 

3063 -B374 


BMI : OUT 

B3 1 1 

A 000 


LDY #0 

B313 

8483 


STY : PRFEAB 

8315 

8 1 80 

: TOP 2 

EDA < : SCRNLO) , Y 

B3 1 7 

C940 


CMP #$40 

83 1 9 

300F •'■‘832 A 


BMI .“OK 

B3 1 B 

C96 1 


CMP #$61 

83 1 D 

3009 ■•"■8328 


BMI : NOT OK 

83 IF 

C9C0 


CMP #$C0 

8321 

1005 ■■•■8328 


BPE : NOTOK 

B323 

007C 
f / » 


AND #$7F 
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D .1. : SUBRTNS3 . 


B325 

4C2AB3 


JMP :ok 

B328 

A900 

: NOTOK 

LB A #0 

B32A 

18 

: OK 

CLC 

■p-T-T.'.p 

Ah 1 ***** J«* A.. 1 

6920 


ADC #32 

B32D 

998005 


ST A $580 , Y 

B330 

C920 


CMP #32 

B332 

F004 "'43338 


BEQ : BOT 

B334 

A90 1 


LDA #1 

B336 

8583 


STA : PRFLAG 

B338 

C8 

: BOT 

I NY 

B339 

C028 


CRY #40 

B33B 

D0DS "-B315 


BNE : TOP 2 

B33D 

A99B 


LDA # FOI- 

B33F 

998005 


ST A $580, Y 

B342 

B342 

+ 18 


ADD 16 #40, #0. 
CLC 

B343 

+A580 


LDA : SCRNLO 

B345 

+6923 


ADC #40 

B347 

+8580 


STA : SCRNLO 

B349 

+A58 1 


LDA : SCRNHI 

B34B 

+6900 


ADC #0 

B34D 

+858 1 


STA : SCRNHI 

B34F 

A5S3 


LDA : PRFLAG 

B351 

F0BA ""•B30D 


BEQ :topi 

B353 

t'j T K"; “T 
iu •«' iJ ■.-* 

+A230 


PUTR # I 0CB3 , # 
LDX # I OCB3 

B355 

+A909 


LDA ttPUTREC 

B357 

+9D4203 


STA ICCOM..X 

B35A 

+A980 


LDA #$580&$FF 

B35C 

+9D4403 


STA ICBAL, X 

B35F 

+A905 


LDA #$580/256 

B361 

+9D4503 


STA ICBAH,X 

B364 

+A9FF 


L D A # $ F F $ F F 

B366 

+9D4803 


STA I CELL, X 

B369 

+A9FF 


LDA #$FFS/$FF 

B36B 

+9D4903 


STA ICBLH, X 

B36E 

+2056E4 


JSR CIOV 

B37 1 

4C0DB3 


JMP : TOPI 

B374 

A99B 

: OUT 

LDA #155 

B376 

2044B9 


JSR PUT3 

B 3 7 9 
B379 

+A230 


CLOSE # I 0CB3 
LDX # I 0CB3 

B37B 

+A90C 


LDA # CLOSE 

B37D 

+9D4203 


STA ICCOM, X 

B3S0 

+2056 E 4 


JSR CIOV 

B3S3 

60 

•* 

RTS 

B384 


PROC 

B384 

= 0080 

FORMAT 
: SCREEN 

R i 


= 0082 

: FLDF'TR 

«... DO 

***** t\ «i! m 



1 L ( LL 
3 , ■$ 6" 7 PC (P ' C) ° 

9 c cp fLUfCT c C ** ^ - 70 

*- po^if CrcpUn. 
Y-Tc/n/ I ^ / r ^ 


S PAC (I~ 
A-or 'A$/ 


■s^ 


/- 


SCRNLO „ : 3CRNH I 


1 .. 0A 
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D 1 2 SUBRTNS7 



= 0083 

: ADDER 

= R2+1 


= 0084 

: FL DON'T 

— r:« t 

Y\ •«* 



~ 0085 

: FULFL.8 

*-:*• 
i\ J 1 

+ 1 


= 0440 

: BUFFER 

$ 4 

40 

B384 

A20E 


L.DX 

# 1 4 

B3B6 

207FA6 


JSR 

MESSAGES 

B389 

20C5A5 


JSR 

I NBLNK 

B38C 

203EA5 


J SR 

SCREEN • 

B38F 

206CAD 


JSR 

KEYDLAY ■ 

B392 

A 000 


LDY 

#0 

B394 

B1C0 


LDA 

( FLDF'TR ) 

B396 

8584 


ST A 

: FLDCNT 

B398 

E6S4 


I NO 

S FLDCNT 

B39A 

8482 


STY 

: FLDF'TR 

B39C 

C8 


I NY 


B39D 

8483 


STY 

: ADDER 

B39F 

2044B4 


JSR 

: POBTN - 

B3A2 

A20 1 


L..DX 

#1 

B3A4 

A9FF 

: t_ 1 0 

LDA 

#255 

B3A6 

8DFC02 


ST A 

764 

B3A9 

ADFC02 

: l. 1 1 

LDA 

764 

B3AC 

C9FF 


CMP 

.14. IK* 

B3AE 

D046 '"'B3F8 


BNE 

: L20 

B3B0 

AD 1 FD0 


LDA 

$D0 1 F 

B3B3 

C906 


CNR 

#6 

B3B5 

F00E ■'••B3C5 


BEQ 

; START 

B3B7 

C903 


CMP 

#3 

B3B9 

F024 --B3DF 


BEQ 

: OPT I ON 

B3BB 

C905 


CNP 

#5 

r.v "r "Cs r\ 
Jfc» ■-.» .0 U 

F03 1 •'"'B3F0 


BEQ 

» cci prpT 

B3BF 

20DEA5 


JSR 

BLNKRT 

B3C2 

4CA9B3 


J MR 

: L 1 i 

B3C5 

86BE 

: START 

STX 

HOLDX 

B3C7 

206CAD 


JSR 

KEYDLAY 

B3CA 

A6BE 


LDX 

HOLDX 

tj -.r n r- 
JO *J» La l 

A980 


LDA 

#*80 

B3CE 

9D4004 


ST A 

:: BUFFER, 

B3D 1 

E8 


I N X 


B3D2 

20C2B4 


JSR 

LAST 

B3D5 

20BFB5 


JSR 

” TFT” RO ? 

B3D8 

20D5A5 


J SR 

QTBLNK 

B3DB 

203EA5 


JSR 

SCREEN 

B3DE 

60 


RTS 


B3DF 

206CAD 

: OPT I ON 

JSR 

KEYDLAY 

B3E2 

20D5A5 


JSR 

QTBLNK 

B3E5 

203EA5 


JSR 

SCREEN 

B3E8 

20 7 E AD 


JSR 

LSTLIN 

B3EB 

68 


PL A 


B3EC 

68 


PL A 


B3ED 

4CB7A0 


JMP 

OPT I ONS 

B3F0 

20D5A5 

: SELECT 

JSR 

QTBLNK 


tf-o ref- P^iOT C7&C- 



X 


TRNSFER TO FORMAT BUFFER IN DATA 


AREA 
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D1 " SUBRTNS3- 

B3F3 

4C84B3 


JMP 

FORMAT 

B3F6 

A0 1 1 

» j r>0 

U An /n* 

LDY 

# 1 7 

B3FS 

88 

II j O •} 

DEY 


p;T,p9 

F0A9 '"B3A4 


BEQ 

; L. 1 0 

B3FB 

D933B4 


CMP 

: LIST-1 , Y 

B3FE 

D0F8 •-•B3F8 


BNE 

« | -i 

K Inn »$*•* »#« 

B400 

86BE 


SIX 

HOLDX 

B402 

202989 


JSR 

GET 1 

B405 

A 6 BE 


LDX 

HOLDX 

B407 

C930 


CMP 

#$30; ASCII ZERO 

B409 

9015 -'-B420 


BCC 

: L.30 

B40B 

C99B 


CMP 

#155; RETURN 

B40D 

F011 "B420 


BEQ 

:: L30 

B40F 

9D4004 


ST A 

; BUFFER, X 

84 1 2 

A000 


LDY 

#0 

B4 1 4 

18 


CLC 


84 1 5 

6960 


ADC 

#96 

84 1 7 

9 1 80 


ST A 

<; SCREEN) , Y 

B4 1 9 

E8 


I MX 


B4 1 A 

A 58 2 


LDA 

; FLDPTR 

B4 1 C 

9D4004 


ST A 

BUFFER, X 

B4 1 F 

E8 


I MX 


8420 

A0FF 

; L30 

LDY 

# — 1 

***• I *!•*• J*<* 

C91C 


CMP 

#285 CUR SR UP 

B424 

F 006 •'"B42C 


BEQ 

>i j j 

n J.„. •-.* X 

8426 

C9 1 E 


CMP 

#30; CURSR BACK 

B428 

F 002 -B42C 


BEQ 

U L 3 1 

l| t« n » *l» 

B42A 

A 00 1 


LDY 

# 1 

B42C 

8483 

: L31 

STY 

n ADDER 

B42E 

2044B4 


JSR 

: P03TN 

B431 

4CA4B3 

v 

JMP 

; L l & 

8434 

8E8F0C32 1 F 

«« J T CT 

it I.... X tJ 1 
x:. 

DB : 

1 42 , .1. 43 ,12, 50 ,31,30,26, 24 , 29 , 27 ,51,53,48, 62 ,58,4; 

8444 

A900 

.1 P0ST1M 

LDA 

#0 

B446 

8585 


ST A 

; FULFLG 

8448 

18 

r. L...80 

CLC 


B449 

A582 


LDA 

; FLDPTR 

B44B 

6583 


ADC 

; ADDER 

B44D 

8582 


ST A 

» FLDPTR 

B44F 

AS 


TAY 


8450 

C000 


CPY 

#0 

8452 

D00A ""B45E 


BNE 

; L81 

8454 

208284 


JSR 

r. OUTRTM 

8457 

A 58 4 


LDA 

r. FLDCNT 

8459 

8582 


ST A 

; FLDPTR 

B45B 

4C48B4 


JMP 

:: L80 

B45E 

C484 

n L8 1 

CPY 

; FLDCNT5 (PLUS ONE) 

B460 

D00A '" B46C 


BNE 

L8 1 5 

8462 

20B2B4 


JSR 

: OUTRTM 

B465 

A 900 


LDA 

#0 
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D 1 : SUBRTN 


B467 8582 

B469 4C4SB4 


¥r 

*■ 

* 

* 


ST A : FLDPTR 
J lip L80 

THIS SECTION FINDS THE ROW AND 
COL FROM FIELD DATA 


B46C 

88 

r. LB 1 5 

DEY 

B46D 

98 


TYA 

B46E 

0A 


ASL A 

B46F 

0A 


ASL A 

B470 

AS 


TAY 

B47 1 

cs 


I NY 

13472 

C8 


I NY 

B473 

B 1 C0 


LI) A (FLDPTR) , Y 

B475 

8555 


STA $55? COL 

B477 

C8 


INY 

B478 

B 1 00 


LDA ( FLDPTR >,Y 

B47A 

8554 

STA $54; ROW 

* THIS SECTION CALCULATES THI 

* LOCATION IN SCREEN MEMORY 

W 

B47C 

A 558 


LDA $58 

B47E 

8580 


STA : SCREEN 

B480 

A559 


LDA $59 

B482 

858 1 


STA : SCREEN + 1 

B4S4 

A454 


LDY $54 

B486 

88 

: L82 

DEY 

B487 

B489 

3010 4 99 


BMI : L83 

ADD 1 6 #40 , #0 , : SCREEN , 

B489 

+ 18 


CLC 

B48A 

+A580 


LDA : SCREEN 

B48C 

+6928 


ADC #40 

B48E 

+8580 


STA : SCREEN 

B490 

+ ASS 1 


LDA S SCREEN +1 

B492 

+6900 


ADC #0 

B494 

+858 1 


STA : SCREEN+1 

B496 

4C86B4 


JMP :: L..82 

B499 


: L83 

A D D 1 6 $55,, #0,, SCR E EN ,, 

£3499 

+ 1 8 


CLC 

B49A 

+A580 


LDA : SCREEN 

B49C 

i i cr cr cr 
* w/ w v* J 


ADC $55 

B49E 

+8580 


STA : SCREEN 

B4A0 

+A58 1 


LDA : SCREEN+1 

B4A2 

+6900 


ADC #0 

B4A4 

+858 1 


STA : SCREEN+1 

B4A6 

A000 

LDY #0 

# 

* THIS SECTION CHECKS TO SEE 
*■ FIELD ALREADY MARKED 


J+ 1 


EN, : SCREENS 1 
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Dl « SUBRTNS: 


B4A8 

B 1 80 


LDA 

( :: SCREEN) Y 

B4AA 

C980 


CMP 

#■$80 

B4AC 

F003 -B4B.t 


BEQ 

: L84 

B4AE 

4C48B4 


JMP 

: L80 

B4B1 

60 

:: L84 
: OUTRTN 

RTS 


B4B2 

A585 

LDA 

: FULFLG 

B4B4 

F007 •'"B4BD 


BEQ 

; L90 

B4B6 

68 


PL A 


B4B7 

68 


PL A 


B4B8 

68 


PL A 


B4B9 

63 


PL A 


B4BA 

4CC5B3 


J MP 

:: START 

B4BD 

A90 1 

; L90 

LDA 

#1 

B4BF 

8585 


ST A 

2 FULFLG 

B4C.I. 

60 


RTS 



* 

% 


B4C2 

A 55 8 

B4C4 

8580 

B4C6 

A559 

B4C8 

1 0 

B4C9 

6903 

B4CB 

858 1 

B4CD 

86 BE 

B4CF 

A20F 

B4D1 

207FA6 

B4D4 

A6BE 

B4D6 

A 9 X 7 

B4D8 

8554 

B4DA 

A922 

B4DC 

W \.,S \"f V— 

B4DE 

A0BA 

B4E0 

20F7B4 

B4E3 

20C5A5 

B4E6 

A 2 10 

B4E8 

207 FA6 

B4EB 

A90F 

B4ED 

Q*s;*sr 
O s.J *J %J 

B4EF 

A0A7 

B4F 1 

A 200 

B4F3 

20F7B4 

B4F6 

60 

B4F7 

B4F7 

8 6 BE 

B4F9 

84BF 

B4FB 

A9FF 

B4FD 

8DFC02 




; LAST 

LDA 

$58 


ST A 

: SCREEN 


LDA 

CLC 

$59 


ADC 

#3 


ST A 

: SCREEN* 1 


STX 

HOLDX 


L..DX 

#15 - 


JSR 

MESSAGES 


LDX 

HOLDX 


LDA 

#23 


ST A 

$54 


LDA 

#34 


ST A 

$55 


LDY 

# 1 86 


JSR 

: GETDATA 


JSR 

1 NBL.NK 


LDX 

#16 — ceri 


JSR 

MESSAGES 


LDA 

# 1 5 


ST A 

$55 


LDY 

# 1 67 


LDX 

#0 


JSR 

RTS 

" GETDATA 

.1 GETDATA 



STX 

HOLDX 

G09 

STY 

HOLDY 


LDA 

.ix o tur et 
•IT .lm W w/ 


ST A 

764 
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Di :: SUBRTNS3. 


B500 

ADFC02 

B503 

C9FF 

B505 

D01A "'-B521 

B507 

AD1FD0 

B50A 

C906 

B50C 

D006 -B514 

B50E 

206CAD 

B51 1 

4C7EB5 

B5 1 4 

C903 

B5 1 6 

D003 •-B51B 

B51B 

4 CDF Ei 3 

B5 1 B 

20DEA5 

B5 1 E 

4C00B5 

B52 1 

C986 

B523 

F0 1 8 •-B53D 

B525 

C934 

B527 

D007 ""El 530 

B529 

A986 

B52B 

8DFC02 

p kt o cir 

D00D •""B53D 

B530 

C987 

B532 

F009 "-B53D 

B534 

C980 

B536 

3005 ■•"■B53D 

B538 

A4BF 

B53A 

4CF9B4 

B53D 

20D5A5 

B540 

2029B9 

B543 

A4BF 

B545 

C99B 

B547 

D003 •"■B54C 

B549 

4C7EB5 

B54C 

C9 1 F 

B54E 

D00B •-•B55B 

B550 

C8 

B551 

E655 

B553 

B 1 80 

B555 

2980 

E< 55 7 

F006 "B55F 

E< 5 59 

D0DF •-B53A 

B55B 

C9 1 E 

B55D 

D00B •""B56A 

B55F 

oo 
C? O 

BS60 

C655 

Cj cr / 

.C* w C..7 .it.. 

B 1 80 

B564 

2980 

B566 

F0E8 ""■B550 

B568 

D0D0 "'B53A 


; G 1 0 

LDA 

/ /* 
/ C) 4 


CMP 

#255 


BNE 

:: G20 


LDA 

«D01F 


CMP 

#6 


BNE 

: G 1 1 


JSR 

KEYDLAY 


JMP 

: G70 

:G1 1 

CMP 

#3 


BNE 

: G 1 2 


JMP 

:: OPT I ONS 

: G i 2 

JSR 

BLNKRT 


J MP 

I G 1 0 

: 820 

CMP 

# 1 34 


BEQ 

: G30 

* CHANGE BS 

TO CURS BAC 


CMP 

#52 


BNE 

» ri‘: 


LDA 

# 1 34 


ST A 

764 


BNE 

: G30 

: G21 

CMP 

# 1 35 


BEQ 

: G 30 


CMP 

# 1 28 


BM1 

:: G30 


LDY 

HOLDY 

“ r' '"v 

n .i.« i.,. 1 

JMP 

: 009 

; G30 

JSR 

QTBLNK 


JSR 

GET 3. 


LDY 

HOLDY 


CMP 

# 1 55 


BNE 

« 

U V.J *— 1 

:: 03 1 

JMP 

: G70 

: G32 

CMP 

#31 


BNE 

: G34 

: G33 

I NY 



I NC 

*55 


LDA 

( : SCREEN) , 


AND 

#$80 


BEQ 

« (•;' ”:r cr 

a 1.3 V..1 


BNE 

: 825 

: G34 

CMP 

#30 


BNE 

:: G40 

: 035 

DEY 



DEC 

*55 


LDA 

< ,1 SCREEN) , 


AMD 

#*80 


BEQ 

: G33 


BNE 

" 025 


* - 
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D1 :: SUBRTNS3. 

B56A 

C920 

G40 

CMP 

#•$20 


B56C 

F008 •■■■B576 


BEQ 

: G50 


B56E 

C930 


CMP 

#$30 


B570 

30C8 ■'"B53A 


BM I 

« j".;; 

tt *j»» *!••• Vu 


B572 

C93A 


CMP 

#$3A 


B574 

1 0C4 ""B53A 


BPL 

«« 

It MM* tl**» MM 


B576 

18 

: 050 

CLC 



B577 

6960 


ADC 

#96 


B579 

9 1 80 


ST A 

( : SCREEN > , Y 


B57B 

4C50B5 


JMP 

•••% MW 

.» Goo 


B57E 

20D5A5 

" 070 

J SR 

QTBLNK 


B58 i 

A 09 7 


L.DY 

# 1 5 1 


B583 

C8 

:: 071 

I NY 



B5S4 

B 1 80 


LDA 

< : SCREEN) , Y 


B586 

2980 


AND 

#$80 


B588 

F0F9 •-•B583 


B E Cv* 

: 07 1 


B58A 

C8 


I NY 



B58B 

B 1 80 


LDA 

C SCREEN) , Y 


B5SD 

C980 


CMP 

#$80 S THIS 

IS FOR SINGLE 

B58F 

D008 "'"B599 


BNE 

» 072 ; DIGIT 

ENTR I ES 

B59 1 

88 


DEY 



ip ks q 

.1,* vJ / 

B 1 80 


LDA 

< : SCREEN) ? Y 


B594 

290F 


AMD 

#$0F 


B596 

4CAAB5 


JMP 

: 080 


B599 

290F 

n c"- n 
} “i • y 

«* V.„' f 

AND 

#$0F 


B59B 

A6BE 


LDX 

HOLD X 


B59D 

9D4004 


STA 

: BUFFER P X 


B5A0 

88 


DEY 



B5A1 

B 1 80 


LDA 

C SCREEN) p Y 


B5A3 

0A 


ASL 

A 


B5A4 

0A 


ASL 

A 


B5A5 

0A 


ASL 

A 


B5A6 

0A 


ASL 

A 


B5A7 

1 D4004 


ORA 

: BUFFER , X 


B5AA 

84 BF 

: G80 

STY 

HOLDY 


B5AC 

85BB 


STA 

CONREG 


B5AE 

A900 


LDA 

#0 


B5B0 

S5BC 


STA 

CONREG + 1 


pcrg-.-J 

in' 

2036 AE 


J SR 

CONVERT 


B5B5 

A4BF 


LDY 

HOLDY 


B5B7 

A5BB 


LDA 

CONREG 


B5B9 

A 6 BE 


LDX 

HOL..DX 


B5BB 

9D4004 


STA 

: BUFFER p X 


B5BE 

60 

•JtJ- 

* 

RTS 



BSBF 

A0FF 

: TFERO 

LDY 

#$FF 


BSC 1 

C8 

2 TFER 1 

I NY 



BSC 2 

1-394004 


LDA 

: BUFFER ? Y 


BSCS 

9 1 B2 


STA 

(PR FORM) , Y 


BSC 7 

C980 


CMP 

#$80 
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D i : SUBRTNS3 . 


B5C9 

D0FA --B5C1 


BNE :tferi 

•q c:; r - rj 

L* \..f L.* .u 

C8 


I NY 

Dcrrp 

L’ \,J w 1-/ 

B94004 


LDA : BUFFER, Y 

B5CF 

9 1 B2 


ST A (PRFORM j , Y 

BSD 1 

80 

■Jf 

* 

* 

RTS 

BSD 2 


PROC 

BSD2 

H 

ivi 

4* 

?y; 

FPRINT 
: BUFFER 

-- $ 4 4 0 


= 009 A 

: CODE 

= R 1 4 


= 00 9 B 

; F I ELD 

= R14+.1 


= 00 9 C 

: COUNT 

= R 1 5 


= 00 9 D 

: HOLD 

~ R15+1 


~ 009E 

: DATA 

= R .1. 6 


= 008A 

: margin! 

“ RA 

BSD2 

209ABA 


JSR : TFERI JTRNSFER FROM FORMAT AREA OF DATA 

BSDS 

A 200 


LDX #0 

BSD 7 

8A9D 


STX : HOLD 

BSD? 

BD4004 


LDA : BUFFER, X 

BS DC 

858A 


STA : MARGN 

B5DE 

E8 

- 

I NX 

BSDF 

A5B4 

” L0S 

LDA MRGNSW 

BSE 1 
BSE 3 

D00B •-•85EE 
A48A 

f 

BNE : L. 1 0 ^ 

LDY : MARGN— & * 

BSES 

A 9 20 

/ 

LDA #32 

BSE 7 

2088B6 

/ 

/ 

JSR :l.50 

BSE A 

A 9 0.1 


LDA #1 

BSEC 

85B4 

J 

STA MRGNSW 

BSEE 

BD4004 

: L 1 0 

LDA : BUFFER, X 

BSF 1 

C980 


CMP #*80 


B5F3 D011 "'•-B606 
B5F5 ES 
B5F6 BD4004 
B5F9 F00A "''BA 05 
B5FB AS 
B5FC A99B 
B5FE 2088BA 
BA0.1. A 9 00 
B603 85 B 4 

B605 60 

B606 859A 

BA08 A5CA 
BA0A S59E 
B60C A5CB 
B60E 859F 
BA 1 0 E8 
B61 1 BD4004 

BA 14 ES 
BA 1 5 859B 


L 1 05 
L 1 1 ^ 


BME 
I NX 
LDA 


: l 1 1 

: BUFFER, X 
: L l 05 ? SK I P 


TAY 


JSR 
LDA 
ST A 
RTS 
ST A 
LDA 
ST A 
LDA 
ST A 
I N X 
LDA 
I NX 
ST A 


#EOL 
: I..50 




MRBNSW ~ 

2 CODE 
CURPTR 
:: DATA 
CURPTR+l 
: DATA* 1 

: BUFFER, X 

; F I ELD 


IF 0 LINES BETWEEN RECORDS 


Y 


ATARI Macro 


A s s e m b 1 e r V e r 



Page 


j / 


01 :: SUBRTNS: 


B6 1 7 

A000 


LDY 

#0 

86 1 9 

C69B 

: L20 

DEC 

"Ftp n 

If 1 at* f*4ia #***• Ait* 

B6 1 B 

F0 1 4 ••'•B63.1 


BEQ 

* 1 

B6 1 D 

C8 


I NY 

! I NY ! I NY ! I NY 

B6 1 E 

4*C8 

I MY ! 

I NY ! 

INY 

B61F 

+C8 

I NY ! 

I NY 

(0 

B620 

+C8 

I NY 



B62 1 

1 8 


CLC 


B622 

B 1 C0 


LDA 

(FLDPTR) ,, Y 

B624 

659E 


ADC 

2 DATA 

B626 

859E 


STA 

« DATA 

B628 

A 900 


LDA 

#0 

B62A 

659F 


ADC 

: DAT A+ 1 

B62C 

859F 


STA 

2 DATA+i 

B62E 

4C19B6 


J MR 

2 L20 

B63 1 

C8 

u } n 1ST 

« L xiu 

I NY 

! INY 1 INY ! INY 

B632 

+C8 

I NY ! 

I NY ! 

I NY 

B633 

■hCB 

I NY ! 

I NY 


B634 

+C 8 

I NY 



B635 

B 1 C0 


LDA 

< FLDPTR) , Y 

B637 

859C 


STA 

: COUNT 

B639 

A000 


LDY 

#0 

B63B 

AD1FD0 

: L30 

LDA 

53279 5 RETURN IF OPTION KEY PRESSED 

B63E 

C903 


CMP 

#3 

B640 

D00 1 "'B643 


BNE 

L31 

B642 

60 


RTS 


B643 

B 1 9E 

:: L31 

LDA 

< : DATA > <i Y 

B645 

84BF 


STY 

HO LDY 

B647 

8 6 BE 


STX 

HOLDX 

B649 

2044B9 


JSR 

PUT 3 

B64C 

A4BF 


LDY 

HOL.DY 

B64E 

A6BE 


LDX 

HOLDX 

8650 

C8 


I NY 


B65 :i. 

C69C 


DEC 

: COUNT 

B653 

D0E6 ■•••B63B 

M. 

BNE 

: L30 

B655 

A59A 

JK 

: L40 

LDA 

: CODE 

B657 

C94 1 


CMP 

#65 

8659 

30 IE ••'•B679 


BM I 

2 L45 

B65B 

C953 


CMP 

#83 ; SINGLE SPACE 

B65D 

D002 ••"•B661 


BNE 

: L41 

B65F 

A 00 1 


LDY 

# 1 

B 6 6 1 

C944 

: L41 

CMP 

#68 ; DOUBLE SPACE 

B663 

D002 •-B667 


BNE 

“ L42 

8665 

A 002 1 


LDY 

#2 

B667 

C954 

: L42 

CMP 

#84 5 TRIPLE SPACE 

8669 

D002 --B66D 


BNE 

r. L43 

B66B 

A 003 


LDY 

#3 

B66D 

A99B 

: L43 

LDA 

#EOL 

B66F 

2088B6 


JSR 

: L50 

8672 

A 9 00 


LDA 

#0 


A T A R I !i a c:: r o A s s e m b 1 e r 


.1. 1 . 0 A {■“' a q 0 




Ver 


5 8 


D1 « SUBRTNS 


B674 

85B4 


ST A 

MRGNSW 

B67& 

4CDFB5 


JMP 

: L05 

B679 

B67B 

290F 

AS 

: L45 

AND 

TAY 

#*0F 

B67C 

A920 


LDA 

#32 

B67E 

2088B6 


JSR 

:: L50 

B6B1 

A901 


LDA 

#1 

B683 

85B4 


ST A 

MRGNSW 

B685 

4CDFB5 

* 

: L50 

JMP 

: L05 

B 688 

88 

DEY 


B689 

300E •'"B699 


BMI 

: L55 

B 68 B 

84 BF 

\ / 

STY 

MOLDY " 

B 6 SD 

86 BE 

\ / 

STX 

HOLDX '' 

B 68 F 

2044B9 

y 

JSR 

PUTS - 

B692 

A4BF 

/ \ 

LDY 

HOLDY , 

B694 

A 6 BE 

LDX 

HOLDX _ 

B696 

4C88B6 

Y 

L JMP 

: L..50 

B699 

60 

« } 55 

it L.. W 

RTS 



■if 


-if 


B69A 

A0FF 

: TFERI 

LDY #$FF 

B69C 

08 

: TFER 1 

I NY 

.86 9 D 

8 1 82 


LDA < PRFORM ) , Y 

B69F 

994004 


ST A : BUFFER, Y 

B6A2 

C980 


CMP #$80 

B6A4 

D0F6 -B69C 


BNE : TFERI 

86 A 6 

08 


I NY 

B6A7 

B 1 B2 


LDA < PRFORM > ,Y 

B6A9 

994004 


STA : BUFFER, Y 

B6AC 

60 

-if 

RTS 

EPROC 



•if 

INCLUDE D: SUBRTNS4 

B6AD 



PROC 

B6AD 

~ 00E0 

SORT 
SRTPT 1 

$E0 


* 00E2 

SRTPT2 

= $E2 


— 00E4 

SRTPT 3 

« *E4 


= 00E6 

T1 

— % E* 6 


= 00E8 

7' 

i «♦*»• 

~ $E 8 


= 00EA 

***•• »■ *1* 

1 

— $EA 


« 00 EC 

XCNGSW 

= TEC 


= 00 ED 
= 0088 

THOLD 

SRTOFF 

= $ED _ Y 

- R5 ' 


» 0087 

SRTLNG 

= R4-+* 1 

B6AD 

A 2 1 E 


L D X # 3 0 "-So Trt 

86 AF 

2085A6 


JSR MSGS 1 

B6B2 

A901 


LDA #1 

8684 

8 5 EC 


STA XCNGSW 




A T A R I M a c: r o A s s e m b 1 er V e r 1 „ 0 A P a g © 


cr r» 

v.J 7 


D1 : SUBRTNS4. 


B6B6 
B6B8 
B6BA 
B6BC 
B6BE 
B6C0 
B6C2 
B6C4 
B6C6 
B6C7 
B6C9 
B6CB 
B6CD 
B6CF 
B6D 1 


sr 


B6D5 
B6D7 
B6D9 
B 6 DB 
B6DD 
B6DF 
B6E 1 
B6E3 
B6E6 
B6E7 
B 6 E .8 
B6EA 
B6EC 
BA EE 
B6F0 
B6F2 
B6F4 
B6F6 
B6F8 
B6F9 
B6FA 
B6FC 
B6FE 
B700 


■> 

it* •*»«• 


B704 
E( 7 06 
B703 
B70A 
B70C 
B70F 
B70F 
B70F 
B7 1 0 
El 7 1 2 


A5C4 
85E4 
A 5 C 5 
85E5 
A5EC 
F02 1 
A900 
8 SEC 
18 

A5C2 

6588 

85E0 

A5C3 


: L. 1 0 


1 !*•#» •*•!« 


/ in: 
O 


589 


85E 1 
A5E 1 
C5E5 

F004 -B6DD 
900C -B6E7 
B006 -B6E3 
A5E0 
C5E4 

9004 •-B6E7 
207 E AD 


18 

A 5 E 0 

65C6 

85E2 

A5E 1 

65C7 

85E3 

A0FF 


"7 
CJ / 


C8 

CA 




B 70 F 


B 1 E 2 
29 7 F 
85ED 
B 1 E 0 
29 7 F 
C5ED 
E 


B6F8 

B70F 




204 9 B 


+ 1 8 

+A5E0 

4-65C6 


» i n r; } 

it L... J.‘. 


” i 1 

II !•».. A* .9. 


LDA BUFEND 

O “1“ /\ C\ p "j" j"« "J" "V 

BUFEND + 1 
SRTPT3+1 
XCNGSW 

:exit - 

#0 ~] 


^nr'7 p&< 7 tnst- ~7G 


LDA 
ST A 
LDA 


BEQ 
LDA 
ST A 
CL.C 
LDA 


3 




■ 4 cc Cso ro<£~ 


XCNGSW 


C C S o— * ^ p* 


jt«r 


ST A 
LDA 
ADC 
ST A 
LDA 
CMP 


BUFTOP 
SET OFF — 
SRTF’T 1 
BUFTOP+ 1 
SR TOFF -i-l 
SRTPT 1 + 1 
SRTPT1+1 
SRTPT 3+1 


Vot>( c: ' 


S cs>tc7 




5 >v --0 < 3*2 



/i/L fc 6 s- 


LDA SRTPT H-l 
REOLNG+ 1 
SRTPT 2+ 1 



ST A 
LDY 
LDX 
I NY 
DEX 
BM I 
LDA 
AND 
ST A 
LDA 
AND 
CMP 


#$FF 

SRTLNG 


: NEXT 

< SRTPT 2) , Y 
#$7F 
THOLD 
( SRTPT 1 ) , Y 
#$7F 
THOLD 
: L2l 


( o 1 


/\A, 




(T 





CLC 

LDA SRTPT 1 
ADC RECLNG 



/ ,‘V 

e>0 
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D 1 :: SUBRTNS4 


B714 

-I-85E0 



ST A SR TFT 1 

B7 1 6 

+A5E 1 



LDA SRTPT1+1 

B7 1 8 

+6507 



ADC RECLNG+1 

B7 1 A 

+85E 1 



ST A SR TP T 1+1 

B71C 




ADD 16 RECLNG, F 

B7 1 C 

+ 1 8 



CLC 

B7.1D 

+A5E2 



LDA SRTPT2 

B7 1 F 

+-65C6 



ADC RECLNG 

872! .1 

+85E2 



STA SRTPT2 

8723 

+A5E3 



LDA SRTPT2+1 

8725 

+-65C7 



ADC RECLNG+1 

B727 

+85E3 



STA SRTPT2+1 

8729 

A5E3 



LDA SRTPT2+1 

8728 

C5E5 



CMP SRTPT3+1 

8 7 2D 

F004 

*•*•8733 


BEQ SNXTl 

B72F 

9003 

-B6F4 


BCC : L20 

873 1 

B006 

--8739 


BCS “ DONE 

8733 

A5E2 


: N X T 1 

LDA SRTPT2 

8735 

C5E4 



CMP SRTPT3 

8737 

9088 

•-B6F4 


BCC :L20 

8739 



: DONE 


B739 




SUB 1 6 RECLNG >< F 

8739 

+•38 



SEC 

87 3 A 

+A5E4 



LDA SRTPT3 

B73C 

+E5C6 



SBC RECLNG 

Cj ”7 rr r" 
JD / •„* 

+85E4 



STA SRTPT3 

B740 

+A5E5 



LDA SRTPT3+ 1 

8742 

+E5C7 



SBC RECLNG+1 

8744 

+85E5 



STA SR TFT 3+1 

8746 

4C8E86 


JMP n L 1 0 

8749 

A90 1 


7v 

: XOHNG 

LDA #1 '‘"'T , 

8748 

8 SEC 



STA XCNGSW J 

87 4 D 

38 



cpp 

W w 

B74E 

A5E0 



LDA SRTPT1 ' ~\ 

B750 

E588 



SBC SR TOFF j 

8752 

85E6 



STA T1 ' 

8754 

A5E 1 



LDA SRTPT1+1 

8756 

E589 



SBC SRTOFF+1 

8758 

PSP '7 



STA T 1 + 1 "72: 

8 75 A 

38 



SEC 

B75B 

A5E2 



LDA SRTPT2 

B75D 

E588 



SBC SETOFF 

B75F 

85ES 



STA T2 

B761 

A5E3 



LDA SRTPT2+1 

8763 

E589 



SBC SRTOFF+1 w 

8765 

S5E9 



STA T2+1 

8767 

A5C6 



LDA RECLNG 

8769 

85EA 



STA T3 

8768 

A5C7 



LDA RECLNG+1 

B76D 

85EB 



STA T3+1 


5 e 


r-f ^ 




fc 




p o(^ 

v /ST S 

^ H 




2fc Z- 
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01 : SUBRTNS4. 

B76F 

A 000 


LDY #0 

B 77 1 

B 1 E 6 

: x 1 0 

li) a rri ) , y 

B773 

AA 


TAX 

B774 

B 1 E 8 


LDA *12) t] Y 

D776 

91E6 


S T A ( T 1 ) Y 

B778 

8 A 


T X A 

p y 7 cp 

91E8 


ST A <T2> :1 Y 

B77B 



ADD 16 #1 « #0, T1 , Tl + 1 

B77B 

4* 1 8 


CLC 

B77C 

4-A5E6 


LDA T 1 

B77E 

-*-690 1 


ADC #1 

B780 

+85E6 

• 

ST A T 1 

B782 

+A5E7 


LDA Tl+1 

B784 

+6900 


ADC #0 

B786 

+85E7 


STA Tl+1 

B788 



A D D 1 6 # 1 , # 0 , T 2 , T 2 + 1 

B788 

4*18 


CLC 

B789 

+A5ES 


LDA T2 

B78B 

4-690 1 


ADC #1 

B78D 

i ac;r;p 
> uJ E. w 


STA T2 

B78F 

4-A5E9 


LDA T2+1 

B791 

4*6900 


ADC #0 

B793 

4-85E9 


STA T2+1 

B795 

C 6 EA 


DEC T3 

B797 

D 0 D 8 *'\B77 1 


BWE : X 1 0 

B799 

C 6 EB 


DEC T3+1 

B79B 

10 04 * % B77 1 


BPL : X 1 0 

B79D 

60 


RTS 



%■ 




<u> 


B79E 



F-ROC 

B79E 


SUMliRY 



= 0000 

: OF SET 

= R 1 


= 0082 

; FLDLN 

= R.2 


= 0084 

: DECPT 

pi 

— - , m *i 


= 0055 

: col. 

= -$55 


= 0054 

: row 

= $54 

B79E 

203EA5 


3 SR SCREEN 

B7A1 

A 90 1 


LDA #1 

B7A3 

8DF002 


STA 752 3 TURN OFF CURSOR 

B7A6 

A 000 


L..DY #0 

B7A8 

8480 

• 

STY 3 OF SET - 

B7AA 

8481 


STY : OFSET+1 

B7AC 

B 1 C 0 


LDA <FLDF*TR)„Y 

B7AE 

A A 


TAX ■ 

B7AF 

C 8 

L 1 0 - 

I NY 

B7B0 

CA 

\ 

DEX 

B7B1 

1006 •'"B7B9 

s — 

BPL : L 3. 3. 

B7B3 

A 9 00 

r 

LDA #0 

B7B5 

8DF002 


STA 752 3 TURN CURSOR BACK ON 

B7B8 

60 

1 

RTS 3 RETURN 



1 0A 


ATARI Macro Assembler Ver 



A? 


Dl : SUBRTN34 


B7B9 

B7BB 

B1C0 

C9AE 

: l 1 1 

LDA 

CMP 

< FLDPTR > Y 
#$AE - TV*'' 

B7BD 

D00B •-••B7CA 


^ BME 

it J -I '"V 

B7BF 

84BF 

/ 

STY 

MOLDY 

B7C 1 

86BE 


SIX 

HOLDX 

B7C3 

20DDB7 


JSR 

: SUM I T • 

B7C6 

A4BF 


LDY 

MOLDY 

B7CS 

A6BE 

J 

LDX 

HOLDX ■ 

B7CA 

C8 

: L 1 2 

I NY 

! I NY ! I NY 

B7CB 

+C8 

1 NY ! 

I NY 

— P 

B7CC 

+C8 

I NY 



D7CD 

B 1 C0 


LDA 

(FLDPTR) , Y 

B7CF 

18 


CLC 

B7D0 

6580 


ADC 

: OFSET 

B7D2 

8580 


ST A 

: OFSET 

B7D4 

A900 


LDA 

#0 i 

B7D6 

6581 


ADC 

: OFSE f 4-1 

B7D8 

858 1 


ST A 

: OFSET+1 

B7DA 

4CAFB7 

* 

J MP 

: L 1 0 

B7DD 

C8 

* 

SUM I T 

I NY 


B7DE 

B 1 C0 


LDA 

(FLDPTR) , Y" 

B7E0 

8555 


ST A 

col - 

B7E2 

CS 


I NY 


B7E3 

B 1 C0 


LDA 

(FLDPTR) Y 

B7E5 

8554 

,w r . 

ST A 

:row - 

B7E7 

A5C2 

rr 

LDA 

BUFTOP 

B7E9 

18 


CLC 


B7EA 

6580 


ADC 

: OFSET 

B7EC 

85F3 


ST A 

I NBUFF 

Y"» ‘"V 1”“* 

-O / III fcl 

A5C3 


LDA 

BUFTOP ■+• 1 

B7F0 

6581 


ADC 

: OFSET+1 

B7F2 

85F4 


ST A 

I NBUFF +1 

B7F4 

CS 


I NY 


B7F5 

B 1 C0 


LDA 

(FLDPTR) ,, Y 

B7F7 

8582 


ST A 

: FL.DLN 

B7F9 

2044DA 


JSR 

ZFR0 

B7FC 

20B6DD' 

; i 20 

JSR 

F MOVE 

B7FF 

A482 


LDY 

: FLDLN 

B80 1 

B.1F3 


LDA 

( INBUFF) , Y 

B803 

S5BD 


ST A 

HOLDA 

B805 

A99B 


LDA 

#EOL. 

B807 

9.1 F 3 


ST A 

( INBUFF) Y 

B809 

A 9 00 


LDA 

#0 

B80B 

85F2 


ST A 

C I X 

B80D 

2044DA 


J SR 

ZFR0 

B8 1 0 

2000D8 


J SR 

AFP 

nn i 
o o X • j» 

2066DA 


JSR 

FADD 

B8 1 6 

A 48 2 


LDY 

: FLDLN 


A T A R I M a c r o A s b e rn b 1 e r V e r 1 „ 0 A P a g e 


to 


D 1 : S Li BRINS 4 


BS.18 

A5BD 


LDA 

HOLDA 

B8 1 A 

9 1 F3 


ST A 

< I NBUFF ) , Y 

B8 1 C 
B8 1 D 

18 

ASF 3 

K 

CLC 

LDA 

I NBUFF 

B8 1 F 

65C6 


ADC 

RECLNG 

B821 

85F3 


ST A 

I NBUFF 

B823 

ASF 4 


LDA 

I NBUFF +1 

B825 

65C7 


ADC 

RECLNG+1 

rr» o “7 
JD O -iX. / 

85F4 


ST A 

INBUFF+1 

B829 

ASF 4 

LDA 

I NBUFF +1 

T Zi o o tu 
I,,* Cl) .I.'., .u 

C5C5 


CMP 

BUFEND+ 1 

BB 2 D 

90CD "B7FC 


BCC 

■ | T-'iVS 

B82F 

F 002 -B833 


BEQ 

u i o in:; 

M • *»*• »!*• » \«i/ 

B831 

B006 ■■•'B839 


BCS 

;; L26 

BBS 3 

A5F3 

« L.r.:.u 

LDA 

I NBUFF 

B835 

C5C4 


CMP 

BUFEND 

BBS 7 

90C3 -B7FC 

* 

n L26 

BCC 

« { to os 

BBS 9 

A5D3 

LDA 

AVSFLG 

B83B 

F052 -B 88 F 


BEQ 

■ j toQ 

II lni« 4»f f 

B83D 

A940 


LDA 

# $ 4 0 

B83F 

85FC 


ST A 

FL.PTR 

B84 1 

A 9 04 


LDA 

#4 

BS43 

85FD 


ST A 

FLPTR+1 

B845 

20ABDD 


J SR 

$DDAB 5 FSTOP 

B848 

A5C8 


LDA 

RECCNT 

B84A 

S5D4 


ST A 

FR0 

B84C 

A5C9 


LDA 

RECCNT +1 

B84E 

85D5 


ST A 

FR0 + 1 

B850 

20AAD9 


JSR 

I FP 

n /•*> k::* **:»■ 
DOJv' 

20B&DD 


J SR 

FMOVE 

B85& 

208.DDD 


JSR 

$DD 8 D 5 FLDOP 

B859 

202 8 DB 


JSR 

FD I V 

B85C 

20E6D8 


JSR 

FASC 

B85F 

A900 


LDA 

#0 

BS6 1 

8584 


ST A 

: DECPT 

B863 

A0FF 


LDY 

#$FF 

B865 

C 8 

:: L27 

I NY 


B 866 

B1F3 


LDA 

( INBUFF) ,, Y 

B 868 

C945 


CMP 

#$45 SE 

B 86 A 

F026 "'B892 


BEQ 

: L30 

B 86 C 

C92E 


CMP 

#$2E 5 DEC POINT 

BS 6 E 

D002 •""BS72 


BNE 

“ 1 '”‘8 

8870 

E684 


:e nc 

: DECPT 

B872 

2980 

: L2S 

AND 

#$80 

B874 

F0EF -B885 


BEQ 

» j 77 

M Lh 4-. / 

BB76 

A584 


LDA 

: DECPT 

B878 

F 0 1 8 "B892 


BEQ 

: L.30 

B87A 

20B&DD 


JSR 

FMOVE 
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BS7D 

A9E7 


LDA 

# R 0 U N D R & 2 5 5 

B87F 

S5F3 


ST A 

I NBUFF 

B88 .1 

A9B3 


LDA 

#ROUNDR / 256 

B883 

S5F4 


ST A 

I NBUFF +1 

B885 

A 900 


LDA 

#0 

B887 

85F2 


STA 

CIX 

B889 

2000DS 


JSR 

AFP 

B88C 

2066DA 

A 

JSR 

FADD 

B88F 

20E6D8 

: L29 

JSR 

FASC 

B892 

A979 

:L30 

LDA 

#$79 

B894 

8584 


STA 

: DECPT 

B396 

A0FF 


LDY 

#$FF 

r f O O Q 
O O 7 O 

C8 

: L3i 

I NY 


B899 

B1F3 


LDA 

( INBUFF) , Y 

BS9B 

2980 


AMD 

#$80 

B89D 

D015 ■■••B8B4 


BNE 

« t 79 

B89F 

B1F3 


LDA 

< I NBUFF ) , Y 

B8A 1 

rqop 

l..,' / .1... Itui 


CMP 

#$2E ; DECIMAL POINT 

B8A3 

D00B ■-•B8AD 


BNE 

» j i rr.r 

B8A5 

8484 


STY 

: DECPT 

B8A7 

£684 


INC 

: DECPT 

B8A9 

E684 


I NC 

: DECPT 

B8AB 

E6S4 


I NC 

£ DECPT 

B8AD 

0980 

: L.3.15 

ORA 

#$80 

BSAF 

91F3 


STA 

< I NBUFF ) ,, Y 

B8B .1 

4C98B8 


J HP 

: L3 1 

B8B4 

84BD 

* 1 "5 •'? 

STY 

HOLDA 5 HOLD Y IS BUSY! 

B8B6 

2095AD 


JSR 

CHRRPL ; ASSURES CHR REPLACED BY CRSR MOVE IS CO 

B8B9 

A4BD 


LDY 

HOLDA 

B8BB 

C8 


I NY 


B8BC 

A99B 


LDA 

#EQL 

B8BE 

9 1 F3 


STA 

( INBUFF) , Y 

B8C0 

A5D3 


LDA 

AVGFLG 

BSC 2 

F006 -'•■BSCA 


BEQ 

«* j *T“T 

BSC 4 

A4S4 


LDY 

: DECPT 

BSC 6 

A99B 


LDA 

#EOL 

BSCS 

9 IF 3 


STA 

( INBUFF) , Y 

BSC A 

A220 

« l “Z T 

if 

LDX 

# I 0CB2 

BSCC 

A909 


LDA 

#PUTREC 

B8CE 

9D4203 


STA 

I CCOM , X 

B8D1 

ASF 3 


LDA 

I NBUFF 

BSD 3 

9D4403 


STA 

I CBAL , X 

BBD6 

A5F4 


LDA 

I NBUFF +1 

BSD8 

9D4503 


STA 

ICBAH, X 

B8DB 

A9FF 


LDA 

#$FF 

BSDD 

9D4803 


STA 

I CELL, X 

B8E0 

9 D 4903 


STA 

ICBLH, X 

BSE 3 

2056E4 


JSR 

C I OV 

BSE 6 

60 


RTS 





EPROC 

BSE 7 

2E 3030 359 B 

/ 

ROUNDR 

DB 

„ 005 •’ , EOL 
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•* 


B8EC 

B8EC 


OPNPRNT 

PROC 

B8EC 

A900 


LDA #0 

B8EE 

S5B9 


STA OPMERR 

B8F0 



OPEN # 1 0CB3 ,, #OWR I T , #0 , #PR I NTR 

B8F-0 

+A230 


LDX # IOC B 3 

B8F.2 

+A903 


LDA #OF'EN 

B8F4 

+9D4203 


STA I CCOM , X 

B8F7 

+A9F7 


LDA #PR I NTR8<$FF 

B8F9 

+904403 


STA I CBAL , X 

B8FC 

+A9BF 


LDA # P R I N T R / 2 5 6 

B8FE 

+9D4503 


STA ICBAH, X 

B901 

+A908 


LDA #OWRIT 

B903 

+9D4A03 


STA ICAX i , X 

B906 

I- A 9 00 


LDA #0 

B908 

+9D4B03 


STA ICAX2, X 

B90B 

+2056E4 


J SR CIOV 

B90E 

A 230 


LDX # I0CB3 

B9 1 0 

BD4303 


LDA I CST A , X 

B9 1 3 

2980 


AMD #$80 

B9 1 5 

Fill ""B928 


BEQ : OU T' 

B9 1 7 

85B9 


STA OPNERR 

B919 



CLOSE # I 0CB3 

B9 1 9 

+A230 


LDX # I 0CB3 

E( 9.1. B 

+A90C 


LDA # CLOSE 

B9 1 D 

+9D4203 


STA I CCOM, X 

B 920 
B923 

+2056E4 
A 2 1 4 


JSR CIOV t 

LDX #20 V 

B925 

207FA6 


JSR MESSAGES 

B928 

60 

: OUT 

RTS 

Ei 929 



PROC ' 

B929 

A2 1 0 

GET 1 

LDX #I0CB1 

B92B 

D002 •"•'B92F 


BNE ; GET - 

B92D 

A220 

GET 2 

LDX #I0CB2 

B92F 

A907 

: GET 

LDA #GETCHR 

B93 1 

9D4203 


STA I CCOM , X ^ 

B934 

A 9 00 


LDA #0 - 

B936 

9D4803 


STA I CELL , X ' 

B939 

9D4903 


STA ICBLH,, X ' 

B93C 

2056E4 


JSR CIOV ' 

B93F 

60 

* 

PUT 2 

RTS 

B940 

A 220 

LDX # I 0CB2 

B942 

D002 ■-■B946 


BNE : PUT 

B944 

A230 

PUT 3 

LDX #I0CB3 

B946 

A 8 

: PUT 

TAY 

B947 

A90B 


LDA ttPUTCHR 
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B949 

9D4203 


ST A 

ICCOM, X 

B94C 

A900 


LDA 

#0 

B94E 

9D4803 


ST A 

ICBLL, X 

B951 

9D4903 


ST A 

ICBLH, X 

B954 

98 


TYA 


B955 

2056 E 4 


JSR 

C I OV 

B958 

60 


RTS 





I NCLUDE D : C 

B959 


•Jf 

PR DC 



* 

* 0 

•if 

•if 

U T P 

; U T i 



•if 



B959 

206 6 Ei 9 

CASOUT 

JSR 

OPNOUT 

B95C 

208FB9 


JSR 

PUTOUT 

B95F 

208FB9 


JSR 

PUT OUT 

B962 

20B0BC 


J SR 

CL S OUT 

B965 

60 

•if 

RTS 




•if 





* OPEN 

•if 

ROUTINE - P 

B966 

206CBC 

•if 

OP N OUT 

JSR 

BEEP2 

B969 

A 980 


LDA 

#BAUDL 

B96B 

8D04D2 


ST A 

AUDF'3 

B96E 

A 903 


LDA 

#BAUDH 

B970 

8D06D2 


ST A 

AUDF4 

q y 

200 4 BC 


JSR 

SENDEN 

B976 

A934 


LDA 

#MOTRGO 

B978 

8D02D3 


ST A 

PACTL 

B97B 

A903 


LDA 

#3 

B97D 

A 2 02 


L.DX 

#2 

B97F 

A040 


LDY 

##40 

B9S 1 

205CE4 


JSR 

SETVBV 

B984 

p,9l“'F 


LDA 

##FF 

B9S6 

8D2A02 


ST A 

CDTMF3 

B989 

AD2A02 


LDA 

CDTMF3 

B98C 

D0FB •--B989 


DIME 

•”»• 

i^t> »»»•« 

B9SE 

60 

•if 

RTS 




* PUT 

•if 

RECORD OUT 

B98F 


PROC 

»- 

B98F 

B98F 

A 9 00 

PUT OUT 

LDA 

#0 

B99 1 

8524 


ST A 

ICBALZ 

B 993 

8DFE03 


ST A 

BLKADR 


R O U T I N E 


PB 70 OF OS 
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B996 

A906 


L.DA 

#6 

B993 

p i"". 


ST A 

ICBAHZ 

B99A 

8DFF03 


ST A 

BLKADR+ 1 

B99D 

A 000 

: L05 

LDY 

#0 

B99F 

84 3D 


STY 

BPTR 

B9A 1 

B 1 24 

L 1 0 

LDA 

(ICBALZ) , Y 

B9A3 

A63D 


LDX 

BPTR 

B9A5 

9D0004 


ST A 

$400, X 

B9A8 

E63D 


I NC 

BPTR 

B9AA 

C99B 


CMP 

#$9B 

B9AC 

F0 1 0 •-••B9BE 


BEQ 

: L20 

B9AE 

E624 


INC 

J. L.* Jd h L 

B9B0 

D002 ■-•B9B4 


BNE 

*+4 

B9B2 

rr / per 
C. 


I NC 

ICBAHZ 

B9B4 

E07F 


CF'X 

# 1 27 

B9B6 

D0E9 --B9A1 


BNE 

: L 1 0 

B9B8 

20C2B9 


«3 SR 

WRBUF 

B9BB 

4C9DB9 


J MP 

“ 1 05 

B9BE 

20C2B9 

“ } 90 

u U. j... >./ 

J SR 

WRBUF 

B9C1 

60 


RTS 




£ 

* WRITE OUT 
•* 

' BUFFER 

t.j o r'-> 

/ w 

A 9 55 

•K- 

WR8UF 

LDA 

#$55 

B9C4 

8DFC03 


ST A 

$3FC 

B9C7 

8DFD03 


ST A 

$3FD 



* 1 S 

THIS NECESSARY? 

B9CA 

A923 


LDA 

» > j;;;- 

It •-> iJ 

B9CC 

8D0603 

.to. 

STA 

*3065 DTI ML 

B9CF 

2004 BC 

K 

JSR 

SENDEN 


■* 


* THIS DETERMINES IRG 




B9D2 

A00F 


LDY 

#$0F 

B9D4 

A 200 


LDX 

#0 

B9D6 

20C6BB 

fir 

JSR 

SETVBX 

B9D9 

A 934 

LDA 

#MOTRGO 

B9DB 

SD02D3 


STA 

PACTL 

B9DE 

AD 17 03 


LDA 

T I MFL.G 

B9E 1 

D0FB -■•B9DE 


BNE 

v **:»• 

B9E3 

20F2BB 


JSR 

LDPNTR 

B9E6 

20FEB9 

-K* 

JSR SEND 

CAN SENDDS BE EL 

B9E9 

2057 BC 


JSR 

SENDDS 

B9EC 

18 

TV 

p, p 

*«i' **•* *»♦/ 


B9ED 

ADFE03 


LDA 

BLKADR 




Ver 
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D i 


B9F0 

6980 


ADC 

# .1 28 

B9F2 

8DFE03 


ST A 

BLKADR 

B9F5 

ADFF03 


LDA 

BLKADR+ 1 

B9FS 

6900 


ADC 

#0 

B9FA 

8DFF03 

* 

STA 

BLKADR+1 

B9FD 

60 

RTS 



* 

* SEND BUFFER 


# 




* 




B9FE 


SEND 
* CAN * 

TH IS 

SENDEN BE EL 

. I M I MATED 

B9FE 

2004BC 


JSR 

SENDEN 


BA0 1 

A 000 


LDY 

#0 


BA03 

8431 


STY 

CHKSUMS 


BA 05 

S43B 


STY 

CHKSNT 5 


BA07 

843 A 


STY 

XMTDON 


BA09 

B132 


LDA 

( BUFRLO ) , Y 


BA0B 

8D0DD2 


STA 

SEROUT 


BA0E 

on tr •) 


STA 

CHKSUM 


BA 10 

A53A 


LDA 

XMTDON 


BA 1 2 

F0FC -•BA 10 


BEQ 

*. 


BA .1.4 

60 

* 

RTS 





•M* 

* 

* I N 
*• 

* 

P U 

T R 0 U T 

I N E 

BA 1 5 

202EBA 

CABIN 

JSR 

OPNIN 


BA 1 8 

A900 


LDA 

#0 


BA1A 

85B5 


STA 

SECFLS 


BA 1 C 

2054 BA 


JSR 

READ I N 


BA IF 

A 90 1 


LDA 

#1 


BA2 1 

85B5 


STA 

SECFLG 


BA23 

A5B7 


1.... D H 

BLKPTR 


BA 25 

85 B 6 


STA 

ENDPTR 


BA27 

2054 BA 


JSR 

READ I N 


BA2A 

20BDBC 


JSR 

CLS I N 


BA 2D 

60 

K- 

RTS 





■Jt 

* OPEN 

* 

FOR 

I NPU1" 


BA.2E 

BA2E 

207CBC 

OPNIN 

J SR 

BEEP1 


B A3 1 

A934 


LDA 

#MOTRGO 



5 £ 
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BA 33 

8D02D3 


ST A 

PACTL 

BA 36 

A020 


LDY 

#$20 

BA 38 

A 2 01 


LDX 

# 1 

BA3A 

A903 


LDA 

#3 

BA3C 

205CE4 


JSE 

SETVBV 

BA3F 

A9FF 


LDA 

#$FF 

BA4 1 

8D2A02 


ST A 

CDTMF3 

BA 44 

AD2A02 


LDA 

CDTMF3 

B A4 7 

D0FB •■"BA44 


BNE 

#—3 

BA49 

A900 


LDA 

#0 

BA4B 

8D8004 


ST A 

$480 

BA4E 

A906 


LDA 

#6 

BA 50 

8D8104 


ST A 

$481 

BA 53 

60 

•ft- 

RTS 




* 

* READ 
¥: 

IN RECORD 

BA 54 



PR or. 


BA54 

A900 

READ I N 

LDA 

#0 

BA 56 

85 B 7 


ST A 

BLKPTR 

BA 58 

A5B5 

: L 0 1 

LDA 

qrrpp} p 

BA5A 

F- 006 •-•BA62 


BEQ 

: L02 

BA5C 

A5B7 


LDA 

BLKPTR 

BASE 

C5B6 


CMP 

ENDPTR 

BA 60 

F04C ••••BAAE 


BEQ 

: x i t 

BA 62 

A900 

« t 

II !*••* #»♦ 

LDA 

#0 

BA64 

8530 


ST A 

STATUS 

BA 66 

20BFBA 


J SR 

RDBLK 

BA69 

ADFF03 


L D m 

$3FF 

BA6C 

C9FF 


CMP 

#$FF 

BA6E 

D005 ■""BA '7 5 


BNE 

: L03 

BA 70 

68 

: L025 

PL A 


BA7 1 

68 


PL A 


BA72 

4CC8BC 


JMP 

ERR X I T 

BA75 

A5B5 

: L03 

LDA 

SECFLG 

BA77 

F016 •""BASF 


BEQ 

:: L05 

BA 79 

A6B7 


LDX 

BLKPTR 

8A78 

BD8104 


LDA 

$481 , X 

BA7E 

CDF F 03 


CMP 

BLKADR+1 

BAB 1 

D0D5 ""BASS 


BNE 

n L01 

BAS 3 

BD8004 


LDA 

$480, X 

BAB 6 

CDFE03 


CMP 

BL.KADR 

BA89 

D0CD ""BA58 


BNE 

J L0 1 

BABB 

A530 


LDA 

STATUS 

BA8D 

D0E 1 •""BA70 


BNE 

: L025 

BABE 

ADFE03 

: L05 

LDA 

BLKADR 

BA92 

8524 


ST A 

ICBALZ 

BA94 

ADFF03 


LDA 

BLKADR+1 

BA 97 

8525 


ST A 

I CB AH Z 
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d i : c be: t rims 


BA 99 

A200 




L.DX 

#0 

BA9B 

BD0004 

: L. 

1 0 


LDA 

$400 ? X 

BA9E 

A430 




LDY 

STATUS! IF STAT <> 0 THEN 

BAA0 

D002 -BAA4 




BNE 

: L 1 1 ? DON'T MOVE TO MEM 

BAA2 

9124 




ST A 

( ICBALZ ) , Y 

BAA4 

E624 

: t... 

1 1 


I NC 

ICBAL2 

BAA6 

D002 •'-BAAA 




BNE 

•if +• 4 

BAA8 

CT tocr 

1*-*- W W 




I NC 

ICBAHZ 

BAAA 

C99B 




CMP 

#$9B 

BAAC 

D001 "BAAF 




BNE 

■jf +3 

BAAE 

60 

: X I T 


RTS 


BAAF 

E8 




I N X 


BAB0 

E080 




CPX 

#$80 

BAB2 

D0E7 "BA9B 



«♦ 

BNE 

: L 1 0 

BAB 4 

A5BS 




LDA 

SECFLG 

BAB 6 

F0A0 "BA 58 




BEQ 

: L0 1 

BABB 

E6B7 




I NC 

BLKF'TR 

BABA 

E6B7 




I NC 

BLKF'TR 

BABC 

4C58BA 

•if 



J MP 

:: L01 



■if 

•if 

•if 

READ 

IN BLOCK 

BABE 


•if 

RDBLK 






* 

I S 

THIS NECESSARY? 

BABE 

A923 




LDA 

#35 

BAG 1 

8D0603 

•if 

if 



ST A 

DT I MLO 



TH I 

,•**% 

o 

SECTION SETS I EG. THIS IS 



•if 

THE 

SECTION WE WILL MODIFY TO WAIT 



•if 

•if 

¥; 

FOR 


THE I 

RG. 



TH I 

8 

SECTION HAS BEEN COMMENTED 



if 

OUT 

«t 

THE 

; WAIT LOOP IS NOW IN 



•if 

• n BEG IN 31 u 




•if 



LDY 

# $ A 



•if 



LDX 

#0 



-if 



,'JSR 

SETVBX 



•K~ 



LDA 

T IMF LG 



•K* 



BNE 

•if --3 

BAC4 

20F2BB 




JSR 

LDPNTR 

BAC7 

20E3BB 




JSR 

ST T MOT 

BACA 

20C6BB 




JSR 

SETVBX 

BA CD 

20D7BA 




JSR 

BEGIN 

BAD0 

209CBB 




J SR 

RECE I V 

BAD3 

2057 BC 




JSR 

RECVDS 

BADS 

60 




RTS 
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*• 

* 

* 


THIS SECTION CALCS BAUD RATE 


BAD 7 78 


BEG I N SE I 

if if if if if if if if if if if if if if if if if # -ft- if if if if if if if if if if if -ft- if if if if -ft- if 


if 

if 

if 

#• 

if 

if 

if 

if 

if 


THIS IS THE NEW ’ WAIT FOR IRG’ 
CODE. IT IS A WAIT LOOP ABOUT 
HALF AS LONG AS AN IRG. IF A 
HIGH IS SEEN ON THE SERIAL LINE 
BEFORE THIS LOOP IS FINISHED IT 
WILL START OVER. THIS SHOULD 
FORCE THE BAUD RATE RTN TO WAIT 
FOR IRG. 


BA DB 

A 00 8 

BEG I N 1 

LDY 

#8 

BADA 

A 200 


LDX 

#0 

BADC 

20C6BB 


J SR 

SETVBX 

BA DF 

AD0FD2 


LDA 

SKSTAT 

BAE2 

29 1. 0 


AND 

#$ 1 0 

BAE4 

D0F9 "'BADE 


BNE 

- • cr 
***** | 

BAE6 

AE 1 703 


LDX 

T I MFLG 

BAE9 

D0ED -“-BADS 


BNE 

BEG I Ml 



if 

if if if if if if -Jf if if if if if ft- if if if if if if if 

BAEB 

SD 1 603 


ST A 

SA V J. 0 

BAEE 

AE0BD4 


L..DX 

V COUNT 

BAF 1 

A 4 1 4 


LDY 

RTCLGK+-2 

BAF3 

8E0C03 


STX 

T 1 HER 1 

BAF 6 

8C0D03 


STY 

T I HER 1 + 1 

BAF 9 

A013 


LDY 

# i 9 

BAF” B 

AD0FD2 

COUNT 

LDA 

SKSTAT 

SAFE 

29 1 0 


AND 

#$ 1 0 . 

BB00 

CD 1603 


CMP 

SAVIO 

BB03 

F0F6 "■BAFB 


BEQ 

COUNT 

BB05 

8D1603 


ST A 

SAV 1 0 

BB08 

88 


DEY 


BB09 

D0F0 •--BAFB 


BNE 

COUNT 

BB0B 

AD0BD4 


LDA 

V COUNT 

BB0E 

A 4 1 4 


LDY 

RTCLOK+2 

BB 1 0 

.&♦ w A.. 1 A.. 1 

M. 

JSR 

COMPUT 

BB13 

A900 

r: 

GORE AD 

LDA 

#0 

BB 1 5 

8D0FD2 


ST A 

SKSTAT 

BB 1 8 

AD3202 


LDA 

SSKCTL 

BB X B 

SD0FD2 


STA 

SKSTAT 

BB 1 E 

A9AA 


LDA 

#$AA 

BB20 

853 1 


STA 

CHKSUM 

BB22 

A9FE 


LDA 

#$FE 
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BB24 

8S32 


ST A BUFRLO 

BB28 

A903 


EDA #3 

BB2S 

8533 


ST A BUFRHI 

BB2A 

58 


CL I 

BB2B 

80 

ft 

£ 

COMPUT 

RTS 

BB2C 

8D0 1 03 

ST A TIMER2 

BB2F 

8C0203 


STY TIMER2+1 

BB32 

20 BABB 


JSR ADJUST 

BB35 

8D0 1 03 


ST A TIMER2 

BB38 

AD0C03 


LDA TIMER! 

BB3B 

20BABB 


JSR ADJUST 

BB3E 

8D0C03 


ST A TIMER1 

BB41 

AD0 1. 03 


LDA TIMER2 

BB44 

38 


SEC 

BB45 

ED0C03 


SBC TIMER1 

BB4S 

SD 1 203 


ST A TEMPI 

BB4B 

AD 0203 


LDA TIMER2+1 

BB4E 

38 



BB4F 

ED0D03 


SBC T I MER 1 + 1 

BBS 2 

A 8 


TAY 

BB53 

A97D 


LDA #$7D 

BBSS 

18 

H I T I MR 

CLC 

BBS 6 

8983 


ADC #$83 

BBSS 

88 


DEY 

BB59 

1 0F A •-BBSS 


BPL H I T I MR 

BB5B 

18 


CLC 

BB5C 

8D 1 203 


ADC TEMPI 

BB5F 

38 

FIWDX 

SEC 

BB80 

E980 


SBC #$80 

Vi CU A 
D *D O 

8D 1 803 


ST A SAVIO 


= 0301 

TBDL0 

= T I ME 19 2 


= 0302 

TBDHI 

= TIMER 2+1 

BB65 

A93E 


LDA #$3E 

BB67 

SD0 1 03 


STA TBDLO 

BB6A 

A902 


LDA #2 

BB6C 

8D0203 


STA TBDHI 

BB6F 

A008 


LDY #8 

BB7 1 

18 

F I ND 1 

CLC 

BB72 

AD0 1 03 


LDA TBDLO 

BB75 

8D1603 

% 

ADC SAVIO 

BB7S 

8D0 1 03 


STA TBDLO 

BB7B 

AD 02 03 


LDA TBDHI 

BB7E 

8900 


ADC #0 

BB80 

8 D 02 03 


STA TBDHI 

BB83 

88 


DEY 

BB84 

D0EB •-BB71 


BNE FIND1 

BB88 

AD0103 


LDA TBDLO 

BB89 

8D04D2 


STA AUDF3 
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BBSC 

AD0203 


LDA TBDHI 

BBSF 

81)06 D 2 


STA AUDF4 

BB92 

C904 


CMP #45 TO SEE IF BAUD RATE 

BB94 

9005 ""BB9B 


BCC FIND2; GROSSLY WRONG 

BB96 

68 


PL A 

BB97 

68 


PL A 

BB98 

4CD8BA 


JMP BEGIN! 

BB9B 

60 

F I ND2 

RIB 







.Jlj. 




*&• 


BB9C 


RECEIV 


.0 ib r L, 

A900 


LDA #0 

BB9E 

8538 


STA BUFRF'L 

BBA0 

HCTTO 

OJO T 


STA RECVDN 

BBA2 

2026BC 


J SR RECVEN 

BBA5 

A 9 00 


LDA #0 

BBA7 

8530 


STA STATUS 

BBA9 

A93C 


LDA #NCOMH I ? *3C 

BBAB 

8D03D3 


STA PBCTLj *D303 

BBAE 

A539 


LDA RECVDN 

BBB0 

F0FC -'BBAE 


BEQ *-2 

BBB2 

A5B5 


LDA SECFLG 

BBB4 

D003 •-BBB9 


BNE *+ 5 

Vi Cj Cj A 
JD JP -O O 

20CFBC 


J SR CHKBLK 

BBB9 

60 


RTS 







¥■ 




* s 

* 

UBROUT I NEB 

BBBA 

C97C 

* 

ADJUST 

CMP #$7C 

Vi vj vj r 
,w JC 3 .C? w 

3004 -'"BBC 2 


BMI AD J 1 

BBBE 

38 


SEC 

BBBF 

E97C 


SBC #$7C 

BBC i 

60 


RTS 

BBC 2 

18 

AD J 1 

CLC 

BBC 3 

6907 


ADC #7 

BBC 5 

60 


RTS 



* 




* 






BBC 6 

A9DD 

SETVBX 

LDA #STMFLG&$FF 

BBCB 

8D2602 


STA CD THAI 

BBCB 

A9BB 


LDA #STMFLG/256 

BBCD 

SD2702 


STA CDTMA1+1 

BBD0 

A 90 1 


LDA #1 

BBD2 

78 


ecr T 
L,. .1. 

BBD3 

205CE4 


J SR SETVBV 

BBD6 

A90 1 


LDA #1 

BEDS 

8D 1 703 


STA TIME LG 


ATARI Macro Assembler Ver 1 . 0A Page 74 

D1 JCSETRTNS. 


BED B 

«: 

ui crJ 

BBDC 

60 


BBDD 

A900 

BBDF 

81)1703 

E< E< E 2 

60 


BBE3 

AD 06 03 

BBE6 

6 A 

BBE7 

6A 

BBE8 

AS 

BBE9 

29 3F 

BBEB 

A A 

BBEC 

98 

B BED 

6 A 

BBEE 

29C0 

BBF0 

A 8 

BBF1 

60 


BBF2 

BBF2 

18 

BBF3 

A9FC 

BBF5 

o t::; “V 

BBF7 

6984 

BBF9 

8534 

BBFB 

A 90 3 

BBFD 

8533 

bbff 

6900 

BC01 

8535 

BC03 

60 


BC04 

A907 

BC06 

2D3202 

BC09 

0920 

BC0B 

0908 

BC0D 

A 007 

BC0F 

8C02D2 

BC 1 2 

A 005 

BC14 

8C00D2 

BC 1 7 

8D3202 

Ei C.1 A 

8D0FD2 

BC 1 D 

A9C7 

BC1F 

25 1 0 

nr? i 
.11. .<>/ •!*.< 

09 1 0 

BC23 

4C3CBC 

BC26 

A907 

BC28 

2D3202 


STMFLG 


* 


o 

«... 


3TTM0T 


CL I 
RTS 


LDA #0 
5TA TIMFLG 
RTS 


LDA DTI ML 0? 
ROR A 
ROR A 
TAY 

AND #*3F 

TAX 

TYA 

ROR A 

AND #*C0 

TAY 

RTS 


P.54 OF OS LIST 


ft 

LDPNTR 


ft 

ft 


SENDEN 


RECVEN 


Ci r- 
LDA 


ST A 


ADC 


#*FC 
BLJFRLO 
# 1 32 
BFENLO 


LDA #3 


ST A 
ADC 


..... 
a 

DTC 

tJ 


BUFRHI 

#0 

BFENHI 


LDA 

AND 

ORA 


#$07 

SSKGTL 

#$20 

#$08 


49 


LDY #*0 


A ‘7 


'V* .1... 


STY 

LDY 

STY 


ST A 
ST A 
LDA 
AND 
ORA 
JMP 
LDA 
AND 


AUDF25 *B202 
#*05 

ALJDF 1 5 it D 200 
SSKCTL 5 *232 
SKCTLj *D20F 
#$C7 
POKMSK ? 

#*10 
CONT I N 
#*07 
SSKCTL 


* 1 25 




‘•*Y I" 


ATARI Macro Assembler Ver 1 . 0A Page / 

D 1 : CSETRTNS . 


BC2B 

09 1 0 


ORA 

#$10 

BC2D 

8D3202 


STA 

SSKCTL 

8C30 

8D0FD2 


ST A 

SKCTL 

BC33 

SD0AD2 


STA 

SKRES 

BC36 

A9C7 


LDA 

#$C7 

BC38 

2510 


AND 

POKMSK 

BC3A 

0920 


ORA 

#$20 

BC3C 

85 1 0 

CO NT I M 

STA 

POKMSK 

BC3E 

8D0ED2 


STA 

IRQEN5 $D20E 

BC41 

A928 


LDA 

#$28 

BC43 

SD08D2 


STA 

AUDCTL 

BC46 

A206 


LDX 

#6 

BC48 

A 9 AS 


LDA 

#$A8 

BC4A 

9D0 1 D2 

NOISE1 

STA 

AUDC 1 , X ; $D20 1 

BC4D 

CA 


DE X 


BC4E 

CA 


DEX 


BC4F 

10F9 "'BC4A 


BPL 

NO I SE 1 

BC5 1 

A9A0 


LDA 

#$A0 

BC53 

8D05D2 


STA 

AUDC 35 $D205 

BC56 

60 

¥.■ 

RTS 


BC57 


SEMDDS 



BC57 

BC57 

A 9 (177 

RECVDS 

LDA 

#$C7 

BC59 

25 1 0 


AND 

POKMSK 

BC5B 

8510 


STA 

POKMSK 

BC5D 

8D0ED2 


STA 

I RQEN 

BC60 

A206 


LDX 

#6 

BC62 

A900 


LDA 

#0 

BC64 

9D01D2 

ZERIT 

STA 

AUDC 1 , X 

BC67 

CA 


DEX 


BC68 

CA 


DEX 


BC69 

1 0F9 "'BC64 


BPL 

ZERIT 

BC6B 

60 

# 

RTS 


BC6C 

209 1 BC 

* 

BEEP2 

JSR 

BEEP 

BC6F 

C640 


DEC 

$40 

EC 7 1 

F00C ■-BC7F 


BEQ 

KEY I NT 

v”, /**\ 

W w / •.-* 

8 A 


T X A 


BC74 

18 


CLC 


BC75 

690 A 


ADC 

# 1 0 

BC77 

AA 


TAX 


BC78 

E414 


CPX 

$145 RTCL.OK+2 

BC7A 

D0FC •-•BC78 


BNE 

V r "> 

* * »l**4 

BC7C 

209 1BC 

BEEP 1 

JSR 

BEEF* 

BC7F 

A9FF 

KEY I NT 

LDA 

#*FF 

BC8 1 

SDFC02 


STA 

764 

BC84 

ADFC02 

KEYCHK 

LDA 

764 

BC87 

C9FF 


CMP 

#-i fcFF 
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BC89 

F0F9 "'BC84 


BEQ KEYCHK 

BC8B 

A9FF 


LDA #fFF 

BCSD 

BDFC02 


ST A 764 

BC90 

60 

* 

RTS 

BP9 1 

A 5 3 4 

•k* 

BEEP 

LDA $34; RTCLOK+2 

BC93 

3 8 


CLC 

BC94 

69 3 E 


ADC #30 

BC96 

A A 


TAX 

BC97 

A9FF 

WFL 

LDA #$FF 

BC99 

8D 3 FD0 


STA SD03F; CONSOL 

BC9C 

A900 


LDA #0 

BC9E 

A0F0 


LDY #$F0 

BCA0 

88 


DEY 

BCA3 

D0FD --BCA0 


BNE *■— 3 

BCA3 

8D3FD0 


STA $D0 3 F 5 CONSOL 

BCA6 

A0F0 


LDY #$F0 

BCA8 

88 


DEY 

BCA9 

D0FD •'“EC A 8 


BNE *-3 

SCAB 

E4 3 4 


CPX $34; RTCLOK+2 

BCAD 

D0E8 ■■“BC97 


BNE WFL 

BCAF 

60 

*■ 

RTS 

BCB0 

A282 

* 

cl sour 

L..DX #3 30 

BCB2 

A9FF 


LDA #$ FI- 

BCB4 

9DFD03 

ZTBUF 

ST A $3FD, X 

BCB7 

CA 


DEX 

BCB8 

D0FA ••“•BCB4 


BNE ZTBUF 

BCBA 

20C2B9 


JSR WRBUF 

BCBD 

A93C 

CL SIN 

LDA ttMOTRST 

BCBF 

8D02D3 


STA PACTL 

nrr 

D w 

A903 


LDA #3 

BCC4 

8D0FD2 


STA SKCTL 

BCC7 

60 

# 

ERRXIT 

RTS 

BCCS 

A9FF 

LDA #$FF 

BCCA 

8530 


STA STATUS 

BCCC 

4CBDBC 

* 

JMP CL SIN 

BCCF 


* 

PROC 

BCCF 

A6B7 

CHKBLK 

L..DX BLKPTR 

BCD 3 

A 5 30 


LDA STATUS 

BCD3 

F006 “BCDB 


BEQ :L30 

BCD 5 

20F8BC 


JSR : COPY 

BCD8 

4CEBBC 


J NP : X I T 

BCDB 

BD8 3 04 

: L 3 0 

LDA $483, X 

BCDE 

CDFF03 


CMP BLKADR+3 

BCE 3 

900C ••“BCEF 


BCC : BAD 
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BCE 3 

BD8004 


LDA 

$480, X 

BCE6 

CDFE03 


CMP 

BLKADR 

BCE9 

9004 •-•BCEF 


BCC 

:: BAD 

BCEB 

2009BD 

: X I T 

J SR 

: ADD 

BCEE 

60 


RTS 


BCEF 

20F8BC 

: BAD 

JSR 

: COPY 

BCF2 

2009BD 


JSR 

: ADD 

BCF5 

4CDBBC 

*- 

: copy 

JMP 

: l 1 0 

BCF8 

BD8004 

LDA 

$480, X 

BCFB 

9 D 820 4 


ST A 

$482, X 

BCFE 

BD8 1 04 


LDA 

$481 , X 

BD01 

9D8304 


ST A 

$483, X 

BD04 

E6B7 


INC 

BLKPTR 

BD06 

E6B7 


I NC 

BL..KPTR 

BD08 

60 

* 

: ADD 

RTS 


BD09 

A6B7 

LDX 

BLKPTR 

BD0B 

18 


CLC 


BD0C 

BD8004 


LDA 

$480, X 

BD0F 

6980 


ADC 

#128 

BD1 1 

9D8004 


ST A 

$480, X 

BD 1 4 

BD8 1 04 


LDA 

$481 , X 

BD 1 7 

6900 


ADC 

#0 

BB19 

9D8 1 04 


ST A 

$481, X 

BD 1 C 

60 

* 

* 

COLORS 

RTS 


BD1D 

A984 

LDA 

#$84 

BD 1 F 

8DC602 


ST A 

7 1 0 

BD22 

8 DC 8 02 


ST A 

7 1 2 

BD25 

A98C 


LDA 

#$BC 

BD27 

8DC502 


ST A 

709 

BD2A 

60 

* 

RTS 


BD2B 

A 9 1 D 

* 

TONE 

LDA 

#29 

BD2D 

8D00D2 


ST A 

$D200 

BD30 

A9AC 


LDA 

#$AC 

BD32 

SD0 .1. D2 


STA 

$D20 1 

BD35 

A 5 1 4 


LDA 

$ 1 4 

BD37 

18 


CLC 


BD38 

6905 


ADC 

#5 

BD3A 

85B0 


STA 

TONHLD 

BD3C 

A514 

TONE 1 

LDA 

$ 1 4 

BD3E 

C5B0 


CMP 

TONHLD 

BD40 

90FA -BD3C 


BCC 

TONE 1 

BD42 

A 9 00 


LDA 

#0 

BD44 

8D0 1 D2 


STA 

$D201 

BD47 

60 


RTS 
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BD48 

AD 3 00 2 

* 

DL I ST 

LDA $230 

BD4B 

8580 


ST A R1 

BD4D 

AD3102 


LDA $231 

BD50 

858 1 


ST A Rl+1 

BD52 

A003 


LDY #3 

BDS4 

B 1 80 


LDA ( R 1 ) , Y 

BD56 

0980 


ORA #$80 

BD58 

9180 


ST A <R1),Y 

BD5A 

A96A 


LDA #DLIRTNL$FF 

BD5C 

8D0002 


STA $200 

BD5F 

A9BD 


LDA #DL.IRTN/256 

BD61 

8D0 1 02 


STA $201 

BD64 

A9C0 


LDA #192 

BD66 

SD0ED4 


STA $D40E 

BD69 

60 


RTS 

BD6A 

48 

DLIRTN 

PH A 

BD6B 

A984 


LDA #$84 

BD6D 

8D0AD4 


STA &D40A 

BD70 

8D18D0 


STA $D0 1 8 

BD73 

88 


PL A 

BD74 

40 

** 

RTI 




INCLUDE D: FRONTEND 

BD75 



PROC 

BD75 


FRONTEND 

BD75 

A 9 00 


LDA #0 

BD77 

8580 


STA R1 

BD79 

8582 


STA R2 

BD7B 

8DE502 


STA MENTOR 

BD7E 

ADF402 


LDA 7565 CHBAS 

BD81 

858 1 


STA Rl+1 

BD83 

AEE602 


LDX MEMTOP+1 

BD86 

CA 


DEX 

BD87 

CA 


DEX 

BD38 

CA 


DEX 

BD89 

CA 


DE X 

BD8A 

8683 


STX R2+1 

BD8C 

8EF402 


SIX 756; CHBAS 

BD8F 

BEE 602 


STX MEMTOP+1 



* NEW 

CHAR SET AT TOP OF FREE RAM 



•Vr 


BB92 

A 2 04 


LDX #4 

BD94 

A 000 


LDY #0 

BD96 

B 1 80 

: LBL10 

LDA i R 1 ) , Y 

BD98 

9 1 82 


STA ( R2 ) Y 

BD9A 

88 


DEV 
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BD9B 

D0F9 -'-BD96 


BNE 

: L.BL. 3. 0 

BD9D 

E6S 1 


I NC 

R 1 + 1 

BD9F 

r“ ' q T 
EL C) < J •-.» 


I NC 

R2+ 3. 

BDA1 

CA 


DE X 


BDA2 

D0F2 "'•BD96 

,u, 

BNE 

: LBL 1 0 



TV 

* MOVE 

NEW 

CHAR TO SET 

BDA4 

AEF402 

TV* 

LDX 

756 ; CHBAS 

BDA7 

E8 


I NX 


BDA8 

E8 


I NX 


BDA9 

E8 


INX 


BDAA 

8683 


C? V 

R2+1 

BDAC 

A 9 08 


LDA 

#8 

BDAE 

8582 


ST A 

R2 

BDB0 

A90F 


LDA 

# : NEWCHRS&TFF 

BDB2 

8580 


ST A 

R 3. 

BDB4 

A 9 BE 


LDA 

#: NEWCHRS/256 

BDB6 

858 1 


ST A 

R 1 + 3. 

BDB8 

A 090 


LDY 

#18*8 

BDBA 

B i 80 

: L.BL 1 .1 

LDA 

( R 1 > , Y 

BDBC 

9182 


ST A 

( R2 > , Y 

BDBE 

do 


DEV 


BDBF 

D0F9 -'BDBA 


BNE 

LBL 3. r 

BDC 1 

B 1 80 


LDA 

( R 1 > , Y 

BDC3 

9 1 82 

JA. 

ST A 

( R2 ) „ Y 
* / 



TT 

* MOD 

lFY DISPLAY LIST 

BDC5 

AD-3002 

& 

LDA 

$230 

BDC8 

8580 


STA 

R1 

BDC A 

AD3 1 02 


LDA 

$23 3. 

BDCD 

858 1 


STA 

R.l + 1 

BDCF 

A906 


LDA 

#6 

BDD 1 

A006 


LDY 

#6 

BDD3 

9 .1. 80 

: LBL20 

STA 

<R1 ) , Y 

BDD5 

C3 


I NY 


BDD6 

C00A 


CRY 

# 1 0 

BDD8 

D0F9 -BDD 3 


BNE 

; LBL 20 

BDDA 

A982 


LDA 

#$82 

BDDC 

9 1 80 


STA 

< R 1 ) , Y 

BDDE 

A00F 


LDY 

#15 

BDE0 

9 1 80 


STA 

( R 1 > , Y 

BDE2 

A940 


LDA 

#$40 

BDE4 

8D0ED4 


STA 

$D40E 

BDE7 

A9F7 


LDA 

# :: DL I RTNTTFF 

BDE9 

8D0002 


STA 

$200 

BDEC 

A9BD 


LDA 

#:: DL IRTN/256 

BDEE 

8D0102 


STA 

$20.1 

BDF 1 

A9C0 


LDA 

# 3. 92 

BDF3 

3D0ED4 


STA 

$D40E 


ATARI Macro Assembler Ver 


1.0A Page 80 

D 1 : FRONT END 


BDF 6 

6 0 

#• 

RTS 



* 


BDF7 

48 

« BLIRTN 

PH A 

BDFS 

8 A 


T X A 

BDF9 

48 


PH A 

BDFA 

A980 


EDA #*80 

BDFC 

AE0BD4 


LDX *D40BS VCOIJNT 

BDFF 

E032 


CPX #50 

BE 0.1 

3002 •"-BE 05 


BMI *+-4 

BE03 

A98C 


LDA #*SC 

BE05 

8D0AD4 


STA *D40A 

BE08 

81) 1 71)0 


ST A *D017 

BE0B 

68 


PL A 

BE0C 

A A 


TAX 

BE0D 

6 Ei 


PL A 

BE0E 

40 


RT I 



■fr 




*:RTN2 

PH A 



•K" 

T X A 



•if 

PH A 



■Vr 

LDA VCOIJNT 



■¥r 

X* 

CMP #50 
BCS : SECND 



FIRST 

LDA #*80 




STA WSYNC 



* 

STA *D0 1 7 ", COLOR REG 



•* 

LDA MEMTOP+1 



■* 

STA CHBAS 



* 

BNE : OUT 



* L* SECND 

X- 

LDA #* 8 C 
STA WSYNC 



■X* 

STA *D01 7; COLOR REG 



*r 

LDA #*E0; DEFAULT CHAR BASE 




STA CHBAS 



*: out 

PL A 



•X* 

TAX 



■X* 

PL A 



4#- 

• 4 

X- 

RT I 

BE0F 


# 

: NEWCHR 

S 

BE0F 

0F0F0F0F0F 

: A <n 

DB 15, 15, 15, 15, 15, 15, 15, 15 

BE 1 7 

F0F0F0F0F0 

:B A K 

DB 240 , 240 , 240 , 240 , 240 240 , 240 „ 240 

BE 1 F 

p p p p 0 0 '7 p ~? p" 

:c ^ 

r\rj cr i=r ^crcr rtt -i •;* "7 J r "> "7 j 0**7 1 0“7 •{ 97 

JU/ A*-' .ill i) .i». '.J i) L* i| J. <i!» X q .!• jIm / jj J. .il.. X h •*••• X »j J- • 

BE27 

FFFF000F0F 

:D ioo 

HD 'Tjrcrr- *?£rer rtf ■{ *r •} cr 1 cr 1 R -j nr 

JU- A.J a, w 1 J >1 4 .. i| i] 4, w #j •>. <4 J) *«* w *( 4. u: j -I, v../ 

TQ \Z' c 

FFPF00E0E0 

:E i o< 

DB 255 , 255 , 0 , 224 , 224 , 224 , 224 , 224 

BE 37 

C 0 0 0 0 0 0 0 0 0 

:f it>z 

DB 192, 0, 0, 0,, 0, 0, 0, 0 

Y*’* r~ r— 

.ob^r 

FF00FFFFFF 

:G ( c?7 

r\r t ORR .■;< ORR nrc '-■jcrnr ncr 9 c;c; ORR 

JL7 XL* iit.. •»..* if K/ if 4 ^ V..7 i* t i... v.. f w t( w rj *»♦.. O H .«**4 ’-w t{ Jm. v../ '•••• 
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D1 : FRONTEND. 


BE 4 7 
BE4F 
BE 57 
BE5F 

T't r** / ***v 

SEE* to / 
BE6F 
BE 7 7 
BE7F 
BE 8 7 
BE8F 
BE 9 7 


BE9F 

BE9F 


BEAD 
BEB5 
BEC9 
BEDD 
BEF 1 
BF0A 
BF 1 9 
BF2A 
BF32 
BF3E 
BF48 
BF58 
BF5E 


0F0F9FFFFF 
FFF0FFFFFF 
E101F3FFFF 
FCFCFCFCF8 
00C0E0F0F8 
FFFFFFFFFF 
000387CFEF 
FCFFFFFFFF 
030F 1 F3F7F 
C0F0F8FCFE 
3F7FBFDFEF 


004 1 2D2923 


26322F2D00 
727 1 706F6E 
806 1 628067 
2C00 1 3806 1 


3433000 1 29 

f/if/i 1 t"; -r '■;> «s; 

hu In*. *1* V-*r ’*♦« *!•** ***** 

"T n pr * 7 ; o ~r t 

ll. ‘n. 1 .1... I 'm* >♦.’ **..* / ’-*** ♦*«• 


80B3A5ACA5 

AFB0B4A9AF 


000 1 233 


'•••1 -r -:r r 


2 6 2 9 2 C 2 5 0 0 

r' '"t R .‘i" •**' 


o p er 

*|*«. M*/ .!»•* / •!••• \«‘V .lift *1**1 

1 30E000 1 32 


11 
11 t* 


:H (o^ 

: X 

.7 ,£7t 
( o7 

lag 

icrf 

llO 
(i I 
t (X 

“3 
"f 


: K 
: L 
: M 
; N 

: 0 

« D 

II I 


DB 

DB 

DB 

DB 

DB 

DB 

DB 


15, 15, 159,, 


n kt cr 

2 uu 


ncc; p cr »: 

Cj 1,U l.M l| *lm \«t‘ ’ 


cr l::; o it:; ir: 


Vw J \,J I) V*.J Inj l| •#••• \ 


J \.J 


•In* V,». V-*,* J**« 


/•-, /i octr occ, orr ocr.c: '**> cr cr orr 

6 *'‘r !■!.' 


r vrr 7 vrr v 

,#I„ t) ikn V*r-* If «lm W %»** IJ Vn '■« *f ***** '*** 




•!>«• •!»** Vm. l| 


1 


/• 

l| ifcn 


■>/} ”T ORR ORR DC-r p> R r.:r 
J T •„,> t< ,l.. \.7 -..7 « .c. i,7 1.7 j™ t.7 1.7 tj 1.7 i.7 «i j... i.7 1.7 


or 9 ?r? ?40 . 224 

.In. %../ .1*.. I) .lmW4i If J.H \..7 7n. I| .hn V./ 4.H if tl**» I U. t| Ommm I ••*• f{ * * ** H •*"' • 4 *** * 


*1 J.n l..< 

H 


0„ 192, 224, 240, 248, 248, 2f 




, OR 2 

• * •**•• If ***** %••• .Ih, 


P) l"‘! i».. - ,•*•",****, • — t 

\*J \ tf J tin. \... *...»* 1^ ikn W l{ *!•« -•* *f •*••« 

»: r i -re- OtfjO ?TQ ?’r,Q ORcr 9 

’ q •„.» i| J. o i.7 »» ?..• / i; a. v* •* «$ ••••* •* jt w wJ ji 


n r~. ir 


■"j nr 


‘~i ir* r~; R R O R 


•„7 >.7 u ji» i, 


7 1.7 


243 


r.7 c,*:' 
ul JJ 


O ssr ^ cr »:::; o k::; c::; o e; cr D >*«; cr O k::; ct !=:; i^r: 

,i'n ,1.’,. 4 .r!.. \.J %../ t| s»i f| ***** w/ i| •*••• '"• *f ***** j! •*••• N ’' ? 


11 


Cl’ o 
f "T 


DB 

DB 


1R 3T i A“T 197 1^*7 2SS '■.'•'SR 

.1. 1.7 i| ■«,* i. ij l»7 - ,7 .{ .1, J— / j| » *» ** M •*•• i... i*7 »j .k» i... 1*7 

■?R9 9RA r>« 


r-;, 1 ^;: cr 


.1. 7 ,6 .j ,d.'. x r k j ii ■ t .j jil 2- .j i.7 r >i i>. v7 1 t «j j«. » j i..i.7 v.J 


R 


ar i r?7 191 

Q *.J 4 **. •**«• / *J •». • 


;***j **;•* 


4 4 *m il.*. 'n. 1] 


57Q ':>".T t O O 4 1 

,■ .j ..... .„.i .* .j ,>•« t .j ,i« I J. 


# 

* 

SCD AT A 


* DATA 


FOR “ MICROFILER" 

DB 0 , 65 , 45 ,41, 35 , 50 , 47 , 38 , 4 1 , 44 , 37 „ 50 , 0 , 63 
* DATA FOR "FROM" ON 

38 , 50 , 47 , 45 , 0 , 67 , 1 1 2 , 1 1 1 
114, 1 1 3 , 1 1 2 ,111,1 1 0 , 1 09 , 1 08 , 0 


DB 

DB 

DB 

DB 

DB 


,*.,45,41.j.=» 




..,,50,47,34 


41 , 5°' 


1 28 . 97 . 98 . 1 28 . 1 03 . 1 04 . 1 05 . 1 06 . 1 07 . 0 . 2 . 48. 37 . 50 . 4 1 , 

44 . 0 . 1 9 .128. 97 * 98, 1 28 , 99 , 77 , 1 00 , 1 0 1 , 1 02 , 0 , 2 , 48 , 50 , 

52 . 5 1 . 0 , X , 4‘l , 4i , 35 , 0 , 1 00 , 3£ , , 0 , 1 , 42 ,41, 45 , 0 , .1 , 40 

46 . 0 . 2 1 /S0 , 37. , 54 , 1 4 , 1 "K 1 .A\ 1.8 , 12, &iS' 

■srer A ’~? A £.J iTTRffl Mi l 7Q { 7 i‘4 OS "b 4 “7 9.4 

1^,17 


if v,.. 1 a... n 

48, 40: 


/I ***V *“»• t 

4 / n 0*6 


t “i* cr. ^ 

O o 1.7 » 


•:r 9 if 

1 o *7 c: 

.1. i.. w q .1. / / >{ 


F-?--. 465. 163’, .1.^0, 128 


_ . , 19,0, 1 4 S; 


T 


i 


DB 

DB 

DB 


■i .i. K..f *.„• ,j 4. >{ 

1 75 , 1 76 „ 180, 1 69 , 1 75 , 174, 154, 1 28 , 0 , 6 
0 , 1 , 35 , 50 , 37 , 33 , 52 , 37 ,0,1 CZ g-?\TZ ’ f 1 L 0" 
38 , 4.1 ,44, 37 ,0,26, 1 8 ,14,0,1, 44 , 47 , 33 , 36 , 0 , 1 

38 ,41,44, 37 !, 0 , 28 


(OTJ 


19, 14,0, 1,50,37,51 


L- O 

53, 45, 37,0, 141 
4A 


f| k -.‘ L. 1 •] )»' i| X. 

A t>’ 




•K- 

V: 


BF6A 


HH.UU 



BF6A 

A9E0 UNDO 

LDA 

##E0 


BF6C 

8DF402 

ST A 

756 5 

CHARBASE 

BF6F 

AD3002 

LDA 

$230 


BF72 

8580 

ST A 

R 1 


BF74 

AD3 1 02 

LDA 

$231 


BF77 

858 1 

ST A 

R 1 + 1 


BF79 

A006 

LDY 

#6 


BF7B 

A 902 

LDA 

#2 


BF7D 

9 1 80 : L 1 0 

ST A 

< R 1 ) , 

Y 

BF7F 

C8 

I NY 



BFB0 

C0 1 1 

CPY 

# 1 7 


BFB2 

D0F9 ■"•BF7D 

BNE 

; L 1 sit 


BF84 

60 

RTS 




& 


<0 


o 




<r 










'ik 








EF'ROC 


b 


‘A 




,^ V 


^vA 




-Tb 




itl' 


a 


o 


•ft- 

* 

•if 
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Ver 
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D 1 DAT AMOR 


BF85 



PROC 


BF'85 

A SC 6 

HENRY 

LDA 

RECLMG 

BF87 

85 D4 


ST A 

FR0 

BF89 

A5C7 


LDA 

RECLNG+ 1 

BF8B 

B5D5 


ST A 

FR0+1 

BF8D 

20 A AD 9 


JSR 

IFF' 

BF90 

20B6DD 


JSR 

FMOVE 

BF93 

38 


ccp 


BF94 

ADE502 


LDA 

HEM TOP 

BF97 

ESC 4 


SBC 

BUFEND 

BF99 

OSD 4 


ST A 

FR0 

BF9B 

ADE602 


LDA 

MEMTOP+1 

BF9E 

E5CS 


SBC 

BUFEND + 1 

BFA0 

8SDS 


ST A 

FR0+ 1 

BFA2 

20AAD9 


JSR 

IFP 

BFA5 

2028 DB 


JSR 

FDI V 

BFA8 

20E6D8 


J SR 

FASC 

BFAB 

A 2 1 3 


LDX 

# 1 9 

BFAD 

207FA6 


-/ r - r* t 
\J oh 

MESSAGES 

BFB0 

18 


CLC 


BFB 1 

AS SB 


LDA 

$58 

BFB3 

69 AC 


ADC 

#*AC 

BFB5 

8590 


ST A 

R9 

BFB 7 

A 5 59 


LDA 

*59 

BFB 9 

6903 


ADC 

#3 

BFBB 

859 1 


ST A 

R9+ 1 

8 FBI} 

A0FF 


LDY 

#*FF 

BFBF 

C8 

: L 1 0 

I NY 


BFC0 

B 1 F3 


LDA 

( INBUFF) Y 

BFC2 

ro9p 


CHP 

#*2E; DEC POINT 

BFC4 

F‘009 -BFCF 


BEQ 

« | '•>(>( 
tt Lw< tiui /•»* 

BFC6 

18 


CLC 


BFC7 

6960 


ADC 

#*60 

BFC9 

0980 


ORA 

#*80 

BFCB 

9 1 90 


ST A 

<R9) , Y 

BFCD 

90F0 •-“BFBF 


BCC 

: L 1 0 ; CARRY WILL 

BFCF 

60 

: L20 

RTS 


BFD0 

A 9 1 4 

* 

COL RON 

LDA 

#* 1 4 

BFD.2 

8DC602 


ST A 

710 

BFD5 

60 

* 

RTS 


BFD6 

A984 

* 

COLROF 

LDA 

#*84 

BFD8 

8DC602 


ST A 

7 1 0 

BFDB 

A 2 1 1 


LDX 

# 1 7 

BFDD 

207 FA6 


JSR 

MESSAGES 

BFE0 

60 


RTS 



BE SET IF LAST NUMBER NAS INVE: 


THIS SUBROUTINE IS DESIGNED TO 


* 


Ver 


A i A R .1 h I a c r o A s s e in b .1, 0 r* 
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Dl : DAT AMOR 


■if 

#■ 

•* 


DISABLED THE ATARI LOGO KEY AND 
THE CAPS LOWER KEY 


BFEl 



PR DC 

BFE1 

C93C 

Cl R KEY 

CMP #60 

BFE3 

F005 -"•BFEA 


BEQ “ LI 

BFE5 

PQ97 


CMP #39 

BFE7 

F001 -BFEA 


BEQ :L1 

BFE9 

60 


RTS 

BFEA 

A9FF 

; l_l 

LDA #255 

BFEC 

60 


RTS 




EF'ROC 

BFED 

60 

INITLZ 

* 

RTS 



'ft' 

# 

•if -if -if if 

if if # if -if if if if -if -if -if -if -if -if -if 4f -if ‘if -if *?f if # if 'if if -if if # if if “if 



*ft* 

* 

u 

DATA DEF I N I T I QMS 



K- 

•if .jA -if 4f -«;• if ..if if •* if •* 4f if if <f if if -if # -if -if -if # -if if -if if -if -if if if -if 




LIST L 

BFEE 

4B3A9B 

KEY BRE- 

DB K :: •’ , EOL / 

BFF 1 

453A9B 

ED I TOR 

DB p E : , EOL 

DB =* C : 7 ,, EOL N - 

BFF4 

433A9B 

CASSET 

BFF 7 

503A9B 

PR I NTR 

DB 'PS ' , EOL T ft 


= 0600 

SCRNBF 

- $600 i 1 


= 09C0 

c-- FLDDAT 

"■s = SCRNBF +960 1 

BFF A 

= BFF A 

■u. 

ORG TBFFA 



* CARTRIDGE BOOT DATA 

U* 

BFF A 

00 A 0 


DW $A000 5 CART START A DDR 

BFFC 

00 


DB 0 

BFFD 

04 


DB 4 

BFFE 

EDBF 


DW INITLZ ; CART IN IT ADDR 


6 L~ 


* 


C000 


END START 


n o E R R 0 R s „ 7 7 5 L a b e 1 s , $ 0 6 0 2 f r e e 
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D 1 ; DAT AMGR 


S 

ADD 16 

mac 

1 2 / 1 2 

...» y Q 

o t / “r 

r> 

29/43 

"JV -y 1 /“} 

*«iJ / •* i !«•< il»« • 

40/19 




49/5 1 

45# 6 

10 # 7 

0# 5 2 

255# < 7 

0 / 0 



AD J 1 

r;< o r*' 

iJ 1 / W A*. 

tM|l f ni|i M»y 

/ / 

73 #4 1 







ADJUST 

BBBA 

79/ 1 R 

72/18 

73# 36 





S 

AFP 

D800 

/ n / irr 

o xi / jo 

64/11 







ANL 1 

A29S 

7/46 

7 #50 







ANL2 

A2BB 

7/44 

8 # 1 5 







ANL 3 

A2BF 

7/49 

8 / 1 4 

8 # 1 7 






ANL 4 

A2D3 

8/20 

8 # 2 7 







ANL TOP 

A282 

7 #4 1 

8/28 

8/30 






ANL XI 

A2E9 

8 # 3 6 

8/41 







ANL X I T 

A2DB 

8/24 

3#3i 






B 

AUDC 1 

D20 1 

75/18 

75/35 






B 

AUDC3 

D205 

75/23 







S 

AUDCTL 

D.208 

75/ 1 5 







S 

AIJDF 1 

D200 

74/47 







B 

AUDF2 

D 202 

74/45 







B 

AUDF ; 3 

D204 

rtt * 9 * 

t.i O / ■ J* O 

"7 






ts 

AIJDF 4 

D206 

66/35 

73/ 6 







AVGFLG 

00 D 3 

33# 9 

34/25 

36/35 

36/38 

* -*#; /r>cr 

v»»/ **«♦* * •!*** mu 

64/37 


S 

BAUDH 

0003 

66/34 







B 

BAUDL 

0080 

66/32 








BEEP 

BC9 1 

4/39 

9/25 

1 1 / 1 5 

26/40 

75/42 

75/51 

76# 1 1 


BEEP 1 

BC7C 

68/54 

75 #5 1 







BEEP 2 

BC 6 C 

66/31 

7 5# 4 2 







BE BIN 

BAD7 

70/50 

71# 9 







BEG I N 1 

BADS 

71 #21 

71/28 

*7"? / 1 } 





5 

BFENH I 

0035 

74/ a 6 







5 

BFENLG 

0034 

74/32 








BLD1 

A3 7 A 

9/55 

10# 7 







BLD1 1 

Ho9j 

10/11 

1 0 # 1 9 







BL.D2 

A39F 

10/ 9 

1 0#26 







BLD21 

A3A6 

10/27 

1 0#29 







BLD3 

A3B0 

9/53 

10# 33 







BLD31 

A3B7 

10/34 

1 0#36 







BLD4 

A3C8 

10/37 

1 0#44 







BLD 6 

A3 DA 

10/25 

10/32 

1 0 / 5 1 

1 0#54 





BLDBUF 

A3 6 5 

7/42 

9# 48 






B 

BLKADR 

03 FE 

66/55 

67/ 7 

67/55 

6 8 / 6 

68 / 7 

68 / 9 

69/45 




69/43 

69/52 

69/54 

76/54 

77/ 6 




BLKFLG 

0086 

7#3 1 

9/54 

9/56 

10/36 

10/38 

10/52 


S 

BLKPTR 

00 B 7 

68/43 

69/26 

69 / 29 

69/43 

70/21 

70/22 

76/48 




77/18 

77/19 

"7 “7 / *7 r? 

/ / / .1— »i... 






BLNKRT 

A5DE 

I ..-2 / O , U .. 

17# 7 

k::; /;< / * 2 ! 

uJ A * / 

54/16 




B 

BPTR 

003 D 

67/ 9 

6 / / 1 1 

67/13 






BROWSE 

00CC 

32# 54 

•-r cr f -.-I- -l 

O v j / *L 

37/19 

":*• “7 / /i / 

48/ 1 9 




BUFEND 

0004 

27/44 

r ;>7 /47 

28/10 

'*.■> p / j 9*> 

•l.u \iJ » 

/ "? A 
/ / . 1 **. 

29/28 

29/29 




29/31 

32# 50 

34/20 

34/28 

34/37 

34/39 

34/40 




34/42 

41/29 

4 1 / 3 1 

41/32 

41/34 

58/56 

59/ 7 


BUFFPT 


7 


63/17 
1 4 #48 


6 


* **♦ ♦ 


i. ZJ / 


t i -, r -. 


82/14 

15/23 


dyJ. / J. / 

l k;." / •*:»• "7 
.1 \.J / •.»' / 


15/5 
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D 1 S DAT AMGR 


BUFPTR 0087 


tr:. 

BUFRFL 

0038 

S 

BUFRH I 

,*•/ .*•/ “*v “1* 

0 v ) . •, . •, 

B 

BUFRLO 

0032 


BUFTOP 

00 C 2 



CAS IN 

BA 1 5 


CAS OUT 

B959 

n 

C ASSET 

BFF4 

B 

CDTMA 1 

0226 

B 

CDTMF3 

022 A 


CHKBLK 

BCCF 

B 

CHKSNT 

003 B 

B 

CHKSUM 

003 1 


CHMFLG 

00CD 


CHNGDA 

AC06 


CHRRPL 

AD95 

B 

C I ov 

E456 

B 

C I X 

00F2 


CLEAR 

B2B 1 


CL.EN 1 

A 2 1 A 


CLEN2 

A 2 1 F 


CLEMRO 

A 2 1 2 

B 

CLOSE 

mac 

B 

CLOSE 

000C 


CLOSUP 

B04D 


CLRKEY 

BFE 1 


CL SUM 

BCBD 


CLSOUT 

BCB0 


CNTPTR 

00D0 


COLCIMT 

0084 


COLORS 

BD 1 D 


COLROF 

BFD6 


COLRON 

BFD0 


COMPUT 

BB2C 


C OMR EG 

00BB 




CO IMT I N 

BC3C 

CONVER 

AE36 

COUNT 

BAFB 

C'l'RH I 

0085 


7#32 

9/30 

9/51 

10/13 

10/17 

10/19 

10/29 

26/19 

1 5# 1 6 

84/69 

160/ 0 

168/ 0 

67/75 

100/: 3 

0/ 0 

7 / 1 

0/ 0 





73/18 
72/ 7 

74/34 






68/24 

71/56 

74/30 





32# 4 9 

34/19 

••1* /» / H 7 

..3* 4 / s'. / 

37/49 

..... ...» , «... ,... 

/ / w' .i... 

44/48 

44/50 

46/32 

46/34 

47/30 

47/32 

48/13 

48/15 

59/ 1 4 

59/17 

; /•*% t "T ,r n’ 

*, 

>**f <|tM * ••• 

o2 / o / 





22/18 

68# 37 






24/22 
83 #29 

66#21 






73/48 

73/50 






6 6 / 4 4 

66/45' 

69/1 1 

69/12 




/ /-JQ 

i* *•••* ■ iin* ** 

68/22 

76#48 






68/21 

68/26 

71/54 





29/19 

29/53 

■ :*; ii cr 

TT uJ \«/ 

■tii / 

*«.• r / .«... ■«.' 

38/34 



28# 1 9 

38/35 






5/28 

64/32 

1 1 /52 

22 / o>6 

O 5T / O Q 

24/55 

26/39 

*♦•♦* i r 

1 / 20 

1/33 

4/29 

49/41 

49/49 

64/52 

65/23 

65/33 

65/48 

6 6 / 1 0 





62/51 

64/1 0 






/•“, / M T J 

/ •->£) 

47/19 

47#30 





6#27 

6/29 






6/24 

6# 30 






5/34 

5/49 

6 #23 





4/26 

49/46 

65/30 





4/27 

49/47 

65/31 





38/48 

40# 1 2 






12/38 

35/44 

83# 9 





68/46 

7 6# 3 6 

76/44 





66/24 

76# 30 






29/34 

29/36 

29/38 

29/40 

♦*;»• ••:«* il “7 

33/41 

33/44 

7 #29 

7 /5f, 

8/17 

8 / 1 8 

8/26 



1 /49 

7 7 #3 4 






3/34 

4/ 6 

4/ 8 

4/33 

38/15 

38/26 

38/39 

38/42 

82# 49 






/ i a 

35/38 

46/ b-.:> 

82# 4 4 




71/47 

72# 1 3 






3# 9 

•J* • J* / / 

..... ...p -n; ,;;j 

•...* •...* / •».* t~ 

■jj/ ._>2 

33/34 

33/46 

33/49 

33/51 

■■T "T tr “,**/ 
•,«* / (.J 

■■'i* /• / /i •••y 

.;>4/ 4 / 

34/51 

34/ 5j5 

34/56 

35/ 9 

35/10 

35/ 1 1 

•i* 5 / 1 •-» 

••••• |tt« i J »*•*/ 

O *../ / .L / 

"7K5 / •$ Q 

35/20 

35/22 

55/40 

55/42 

55/45 





74/53 

75# 1 2 






33/31 

33/50 

3 4 #4 7 

55/43 




7 1 #38 

7 1 / 4 1 

71/44 





1 4#46 

15/12 

.1. 6 / 1 2 







CTRLO 

0084 

14# 4 5 

15/14 

16 / 10 






CURPTR 

00CA 

■v r "i .ij. c r 
w su xJ 

34/21 

34/29 

"T *7 

*4 aa* a* J... W 

;-i;7 /7f; 

37/26 

37/28 
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D 1 J DATAMGR. 





37/30 

.:> / / />□ 

• *M* •**« # aaaa* aaaaa 

\ 7 / \ / 

W / a 7 a* 

37/38 

37/40 

37/48 

37/51 




1 :i #< 3 

101 #78 

0/79 

155/ 0 

1 2# 73 

131/83 

83# 37 




0/ u 9 

oo/ OT 

45# 6 

10# 7 

0#5 2 

255# < 7 

0 / 0 


DBUFHI 

0305 

21 #29 

23/14 







DBUFLO 

0304 

2 1 #28 

'J* / i ,1 m 







DCDMND 

0302 

21 #26 

21/47 

,y ^ K ;.- E ~. 

•C j>‘« / w w 

23/10 

26/20 




DECCTR 

A5AF 

16/ 8 

1 6# 1 0 







DES I GN 

A 173 

/ Jwi »*♦» 

4 #47 







DL I RTN 

BD6A 

78/ 1 5 

78/17 

78# 23 






DL I ST 

BD48 

2/43 

78# 7 







DSECH I 

03 0B 

21 #31 

22/48 

23/18 

24/30 





D5ECL.0 

030A 

2 1 #30 

22/46 

23/16 

24/28 





DSK I NV 

E453 

'■;« ■! ,)J. *'-1 

ilm alt 1 V *aa/ alaaa 

22/49 

'7V7 /RA 

'■> "T / A. 

a.. / O 

23/19 

24/31 

2 6 / 2 1 


DSTATS 

0303 

21 #27 

21/39 

/ 1 4 

*!*♦* 4 #*aa «r a** f 





B 

DTIMLO 

0306 

"7 *71 / **Y O 

74/14 







DUN IT 

030 1 

2 1 #25 








EDDATA 

ACB4 

28/43 

30# 1 0 







EDITOR 

BFF 1 

1/25 

1/27 

83 #28 





B 

ENDPTR 

00 D 6 

68/44 

69/30 







ENT DAT 

A 4 09 

f ***** / 

O / JO 

4 / 1 4 

1 1 #27 

38/20 

38/28 



S 

EOL. 

009 B 

4/20 

9/15 

-J / »»:; 1 

/ ttw* ala 

22/34 

29/21 

37/31 

40/29 




44/27 

44/54 

45/26 

46/21 

46/38 

47/36 

49/17 




56/42 

cr "7 / iz ' *7** 

%aai / a* \ *aaa® 

62/48 

64/35 

64/40 

64/55 

***** / /**\ **w 

cJ / 




83/28 

83/29 

83/30 






EROFST 

00CF 

12/52 

13/25 

18/38 

29/54 

30/16 

30/46 

31/42 




33# 6 

34/24 







EEEXIT 

BCC 8 

69/40 

76#42 






S 

FADD 

DA 66 

62/54 

64/12 






B 

FASC 

D 8 E 6 

63/40 

64/13 

32 / 1 





B 

FD I V 

DB2B 

63/39 

82/20 







F I ND 1 

BB7 1 

72# 45 

•••Jf /* u j J*”* "T 

/ / \mJ *a*a* 







F I ND2 

BB9B 

“7 "#* / C) 

/ / o 

73# 12 






n 

FINDX 

BB5F 

”7 '•"i j.j. inr 








FLDDAT 

09C0 

7/28 

7/47 

7/50 

7/53 

"7 /KT.i. 
/ / X.J O 

8 / 9 

8 / 1 2 




8/31 

8 / •.!>•.!> 

8/34 

8/37 

8/39 

8/52 

8/53 




9/ 9 

9 / 1 8 

8 3# 32 






FLDFLG 

008 B 

7 #33 

7/45 

8 / 1 3 

8/16 

10/10 

10/26 

1 0/33 


FLDF'TR 

0000 

1 1/42 

11/44 

30/34 

32# 4 8 

33/14 

33/17 

33/20 




“T ~r / '•;> 

i‘ at aaa »t«l 

***r n 

'hi* / ala** / 

33/40 

33/43 

33/45 

33/48 

34/ 8 




34/ 1 1 

34/14 

40/48 

40/50 

50 / 1 5 

52/18 

r? / r? i 

IkH* alaaa / alaa» ala 




57/13 

62/41 

57/24 

61/48 

61/56 

62/16 

o / a / 

62/30 

s 

FL..PTR 

00 FC 

63/28 

a--* / 0 







FliOVE 

DDE 6 

62/44 

□O' / •.!:« / 

63/55 

82/ 1 1 





FORMAT 

B384 

4/ 7 

49 #5 3 

50/56 






FPR I NT 

B5D.2 

47/22 

56# 1 4 






B 

FR0 

00D4 

/ IM|« / M»|« 

C3 

A"T / 

l../ a* **M* iJ 

82/ 7 

02/ 9 

R9 / i 

•a«r alaaa a 

82/18 



FRONT E 

BD75 

1/50 

7 8 # 33 







GET 1 

B929 

2/22 

5/50 

13/26 

25/23 

7 a / i r> 

W W 7 4. 4*4-4 

38/45 

5 1 / 1 2 


n SET2 


B92D 


54/35 

65#42 


65# 40 
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s SETCHR 

0007 

n GORE AD 

BB 1 3 

H I T I MR 

BBSS 

HL.DA 

0088 

HOLDA 

00BD 

HOLDX 

00 BE 



HOLDY 

00BF 


ICAX1 

03 4 A 

B 

ICAX2 

034 B 

S 

I CBAFI 

0345 

s 

ICBAHZ 

0025 

s 

I CB At... 

0344 

c: 

ICBALZ 

0024 

s 

1CBLH 

0349 

B 

ICBLL 

0348 

S 

I CCOM 

0342 

B 

ICDNO 

034 1 

S 

I CH I D 

0340 

B 

ICPTH 

0347 

B 

ICPTL 

0346 

B 

ICSTA 

0343 

B 

IFF' 

D9AA 


INBFPT 

AS A 2 


INBFXT 

AS A 8 


INBLMK 

ASC5 

B 

I NBUFF 

00 F 3 



IIMITL.Z 

BFED 


I NSC P I" 

A5A9 


I NSC XT 

A5B7 

s 

I OCB 1 

00 1 0 

B 

1 OCB 2 

0020 

S 

J. OCB 3 

0030 

B 

I RQEN 

D20E 


KEY 1 

AD 70 


KEYBRD 

BFEE 


KEYCHK 

BC84 


KEYDLA 

AD6C 


KEY I NT BC7F 
L..DD1 A3F8 


65/43 
71 #49 


7 2 #29 

»”v /***j 

» ataa* «* t!«i 






1 4 #49 

15/36 

1 5 / 4 1 





3# 1 0 

9/50 

10/ 7 

10/56 

36/16 

*7 / / *"> 

\ r**l • •• 

V* >*** ** «k*i *fi*i 

62/47 

62/56 

64/31 

64/33 





3#1 1 

9/49 

10/55 

24/54 

50/37 

50/39 

5 1 / 1 1 

5 1 / 1 3 

k::; •*:*■ / "T -i 

53/34 

53/52 

•br / 30 

w/ w *• s.. 1 

55/46 

cr -y j "Z 
X.J / / O -J* 

57/36 

58 / 1 8 

58/21 

62/ 9 

/ / .1 
An •* / I •• 



3# 12 

9/48 

10/54 

c:r “•* / t:v ••:** 

t \ - t *. 

/ W '.»* 

54/32 

54/36 

55/39 

55/44 

5 / / o 2 

cr **7 / ~r c: 

\.J / / %** f 

58/17 

58/20 

62/ 8 

62/11 

1 / 1 7 

1 /30 

65/20 





1 / 1 9 

1/32 

65/22 





1 / 1 5 

i / O Q 
.L / 

49/36 

64/48 

65/18 



24/21 

67/ 6 

67/18 

69/55 

70/12 



1/13 

1 /26 

49/34 

64/46 

65/ 1 6 



24/19 

66/54 

67/10 

6 7 / 1 6 

69/53 

70/ 9 

70/ 1 0 

49/40 

64/51 

65/47 

66/ 8 




49/38 

64/50 

65/46 

66/ 7 




1 / 1 1 

1/24 

4/28 

49/32 

49/48 

6 4 / 4 4 

65/14 

65/32 

65/44 

65/56 






/ cr / '“iK”' 
OJ/ 2.J 

63/36 

32/10 

82 / 1 9 





9/29 

10/ 6 

10/15 

10/28 

.1.0/31 

10/35 

10/41 

10/53 

15/25 

15/39 

15# 51 




•i cr / kt; 

1 5# 5 4 






•i -.7 / 28 

•I* *f*a* a* *k*« ■*•* 

16# 43 

50/1 1 

53/41 




/ ./ / 
62/ od 

62/39 

62/46 

62/49 

63/ 6 

63/ 9 

63/11 

63/12 

63/ 1 4 

63/ 1 6 

63/21 

63/45 

64/ 6 

64/ 8 

64/18 

82/33 

64/21 

64/29 

64/36 

64/41 

64/45 

64/47 

83# 1 7 

83/40 






15/34 

15/44 

16# 7 





1 6 / 1 1 

16# 14 






1/ 9 

65/40 






1/22 

64/42 

65/42 

65/51 




4/26 

49/30 

49/46 

k:; / 1 o 

O w / X 4. 

65/24 

65/30 

65/53 

75/13 

75/3'? 






32# 8 

32/ 9 

32/11 





1 / 1 2 

1 / 1 4 

83# 27 





75# 54 

/ 5/5to 






12/29 

13/ 6 

3 1 #56 

~r o/ •} 4 

•m 1 X„ t 1 

35/50 

47/1 1 

50/13 

50/38 

50/48 

54/1 1 





75/44 

75#52 






2/35 

1 1 / 1 3 

1 1 # 1 7 






ODD AT A 

A3E 1 

2/40 

11# 8 


LDPNTR 

BBF2 

67/49 

70/47 

74 #27 
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LOAD 

AFF4 

37/44 

38/13 

/*•> ,ll i:.r h 
OO tfxJau. 

46/47 





LODFLG 

00CE 

15/20 

32# 5 6 

• j“*- f *«*|» 

36/53 

39/ 1 1 




L STL IN 

AD7E 

~T* 4 / C" i::y 

O/ JvJ 

4 / 1 5 

4/35 

1 1 / i 9 

12/49 

27/10 

29/51 




32#20 

59/28 

ob/ 

36/ 1 1 

36/51 

38/21 

38/49 

50/51 


MEMRY 

BF85 

t ***** .i 

•J t o A 

82# 6 






S 

MEM TOP 

02E5 

97 

.bn / / W >•** 

28/ 6 

78/37 

78/40 

78/47 

82/13 

82/16 


MEN 1 

A06E 

2# 1 3 

/ -’i* i*" s 

JlU / J... 

2/34 

1 1 / 1 6 





MEN 1 5 

A 07 3 

2# 1 5 

2/19 







MEN2 

A096 

r ? / r ? 4 

2 #29 







MEN 4 

A0AC 

2/30 

2# 40 







MENS 

A 0 A P 

4^, / O / 

2# 41 







MENU 

A04D 

1/38 

1/40 

1 #49 






ME S BAG 

A67F 

2/21 

/ .1 J"“ 

%„ l / *1. ui 

*1 / 4.L .* 

W / 1 

4 / 1 

“ / 4*. «*.* 

i;:r / o "7 

9/24 

11/14 




18# 54 

24/45 

26/24 

/•“, i t , / 

o. O / 

97 / =54 

*#*rr / / t 

30/23 

31/45 




35/37 

36/ 9 

***** t / ryy / 
Ofc)/ JO 

37/42 

“7 / R2* k:" 

o / / bb 

38/18 

38/44 




46/50 

46/52 

47/17 

50/ 1 0 

/ '*:»• -if 
J '.j / 

*=; -? / 4 “v 

65/35 




qo / 9>*n; 

L/ 4»« .* iIm •— * 

82/52 






s 

MOTRGO 

0034 

III "T "7 
□6 / / 

67/45 

63/55 





s 

MOTRST 

0030 

76/36 








MRGNSW 

00B4 

2 #54 

4/23 

56/28 

56/34 

56/45 

»::r ,~7 / e:; 6 
/ / JO 

58/12 


MSGBUF 

A6F 1 

1 9 / 2 :i 

19/23 

20# 38 






MSGFLG 

009 C 

4 #49 

5/12 

5/48 

t / "’V 

r... i .* 9 . 

O / .•». 

9/23 

97/98 



MSGS 1 

A685 

4/38 

1 9# 1 5 

58/53 





B 

NCOMi-il 

0030 

73/23 








NO I SE 1 

BC4A 

75# 1 8 

75/21 







NOSCRO 

A23A 

6/18 

6 / 4 4 

6# 47 





B 

OPEN 

mac 

1/ 9 

1 /or> 

/_,«- / *{ n 





B 

OPEN 

0003 

1 / 1 0 

1 /23 

65/13 






OPNERR 

00B9 

3# 7 

4 / 1 7 

48/41 

65/10 

65/28 




OPN I N 

BA2E 

68/37 

68# 53 







OPNOUT 

B966 

6 6 / 2 1 

66 #31 







OPNPRN 

B8EC 

4 / 1 6 

48/40 

65# 8 






OPT I ON 

A0B7 

3# 14 

*-*r / T 

•*>/ 

3/40 

3/56 

4 / 1 9 

4/30 

4/40 





50 / 54 






B 

OREAD 

0004 

1 / 1 6 








OUT 1 

A24F 

5/41 

7# 1 0 






B 

OWE I T 

0008 

65/19 







B 

PACTL 

D302 

66/38 

67/46 

68/56 

“7 4. / “T *7 
/ O / •«» / 




S 

PBCTL 

D303 

73/24 








POINTE 

ADA4 

1 1 /20 

32# 46 






B 

POKMSK 

0010 

74/51 

75/10 

75/12 

75/30 

"7 cr / •» 

/ kj *.« 1 4. 




POSRTN 

A 6 56 

11/53 

14/15 

14/26 

1 8# 24 





PRFOBM 

00B2 

32# 4 7 

34/ 9 

34/12 

34/18 

•-> 4 / o 

55/54 

56/ 8 




58/28 

./ or ~r 
o / o o 







pr :e ntr 

BFF7 

65/15 

65/17 

8 3# 30 






PRNTSW 

00BA 

3# 8 

4/1 0 

38/23 

46/44 




n 

PRS 

A 1 A 1 

5# 20 








PRS0 

A1BA 

5# 31 

5/44 

5/46 

6/21 

/ "T 

U < 

6/40 




PR S 0.1 

A 1 BF 

5# 3 4 

5/40 

PRS02 

A 1 D3 

»•*»• / M *r *"v 

t •' ‘‘i / 

5# 4 2 
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PRSl 

A 1 FB 

5/56 

6 / 7 

6 # 1 1 

6/34 

6/39 

6/45 



PRC? 

A 2 00 

5/3.0 

6 / 1 0 

6 # 13 






PR S3 

A20C 

6 / 1 5 

6 # 19 

6/55 






PRSCNT 

A 1 BE 

5/ 6 

5/ 8 

5# 1 0 

9/26 




n 

PR SCRIM 

A 173 

4 #50 







n 

PR SR TIM 

A 194 

5# 1 3 








PUTS 

B940 

4/54 

6/20 

6/49 

7 / 1 4 

12/24 

12/26 

13/51 




. ,i •• ****1 

Jim iJ •— 1 u: 

25/46 

6 5# 51 






PUT 3 

B944 

4 / 2 1 

49/44 

57/34 

58/19 

6 5# 5 3 



s 

PUTCHR 

000B 

65/55 








PUTOUT 

B98F 

iii r*# 

Mir / >*••• 

66/23 

66 #52 





s 

PUTR 

mac 

49/30 







s 

PUT REG 

0009 

49/31 

64/43 







QTBLNK 

A5D5 

12/47 

55/15 

12/56 

16 #52 

50/45 

50/49 

50/55 

54/34 

s 

R 1 

0080 

1/39 

1 / 4 1 

1/44 

1 / 46 

| / 

.1. / w .<•— 

1/54 

5 / 1 6 




5/19 

6/27 

7/18 

7/21 

7 / 4 1 

7/52 

8/29 




1 1 /56 

12/ 7 

12/1 3 

1 2 / 1 5 

1 2 / 1 6 

12/18 

12/21 




J. / / 

15/10 

t tr /r>"7 

.1* w / / 

15/46 

16/ 9 

16/23 

21/33 




oT / r?Q 

•I*** *• / ***** •' 

27/30 

32/24 

r- t i r*> " t v 
•**> 4.‘*‘* / *«:~ / 

32/30 

40/13 

40/16 




40/28 

40/33 

40/35 

40/36 

40/38 

40/49 

40/51 




40/53 

4 1 / 1 1 

4 1 / 1 3 

4 1 / 1 5 

4 1 / 1 7 

4 1 / 4 1 

44/46 




48/27 

48/28 

49/54 

6 1 / 37 

78/ 8 

78/10 

78/12 




78/14 

78/35 

78/39 

78/53 

79/ 6 

"7 q / r ;:> -i 

79/23 




79/25 

79/29 

79/35 

79/37 

79/40 

79/45 

79/47 




81/42 

81/44 

81/47 





s 

R 1 0 

0092 

a. / / 

97/24 

q / »=•“ t-1 

38/56 




s 

R 1 1 

0094 

/ *7 *•*“; 

•t • ia / i* »***♦ ***** 

0"7 

ilm / «l**« »*** 

39/ 6 

39/ 7 




s 

R 1 2 

0096 

27/27 

27/28 

39/ 8 

39/ 9 




s 

R 1 3 

0098 

18/56 

19/ 6 

*•*!• /*“j / »**f* h»y 

/ •«> .*• 

**y /tq 
/ ***** / 

32/41 



s 

R 1 4 

009 A 

19/ 7 

19/ 8 

26/30 

m i / “t* “T 

6 / 

26/36 

56/ 1 6 

56/ 1 7 

s 

R 1 5 

00 9 C 

4/49 

19/ 9 

1 9/ 1 0 

56/18 

56/19 



c: 

m/ 

R 1 6 

00 9 E 

1 9 / 1 1 

56/20 






s 

r »9 

1 A 

0082 

1 /56 

2/ 7 

“*V / /**\ M T 

/ / *c\o 

7 / 2 5 

9/31 

10/14 

1 0 / 1 8 




10/20 

10/24 

10/30 

10/40 

10 / 4 

10/45 

10/49 




14/52 

14/54 

15/24 

15/38 

15/53 

21/34 

27/31 




27/32 

•**1* ***r / *i /"'j 

■,j •.«* / .1. /•'. 

33/15 

40/ 1 4 

40/ 1 7 

40/20 

40/22 




40/23 

40/25 

40/27 

40/41 

40/43 

40/44 

40/46 




41/42 

41/43 

48/29 

48/30 

49/55 

49/56 

61/38 




78/36 

79/30 

78/45 

78/54 

79/ 7 

79/17 

79/19 

79/26 

& 

R3 

0084 

2/ 9 

r> / 1 i 

»J»H / *1* ••• 

7/29 

7/30 

14/45 

14/46 

21/35 




27/33 

oj. /“ v 4 

At. i / *••** I 

41/44 

41/45 

50/ 6 

50/ 7 

61/39 

s 

R4 

0086 

/ / o 1 

; *«»* 

/ / ***** »!“• 

14/47 

14/48 

21/36 

O i / "T "7 

Jm. / .* •*-* V. J 




27/36 

•••I* • r *r / *| “!*• 

•**:« / 1 o 

41/46 

41/47 

58/51 



B 

R5 

0088 

1 1 /30 

1 .1 / 3 1 

14/49 

14/50 

18/31 

1 8/34 

18/41 




18/44 

—y j ”7 ***v 
.ii„ / / / 

41/48 

58/50 




S 

R6 

00 8 A 

7/33 

•I -J / "?* o 

J. 1 / •_’» .iL 

1 1 / 33 

18/24 

41/49 

41/50 

56/2.1. 

B 

R7 

008 C 

7/34 

“•V f "T 1"" 

/ / :->5 

1 1/34 

1 :l /35 

18/35 

.1.8/36 

1.8/46 





18/47 

1 8/48 

4 1 

B 

R8 

008E 

1 1/36 

1 M / V 

.«. / W tU«* 

4 1 
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DlSDATAMBR 


R9 

0090 

t-y i /• > .1 

X'~ / t .«!•• ■!. 

7 / > 

4m. / / .1... 4m. 

38/30 

38/32 

38/53 



0 / 0 





RCLSH I 

00 8 D 

”7 44 . T er, 

/ TT 

•**v / ***i‘ 

7 / 08 

8/44 

9/40 

9/42 

RCLGL.0 

008C 

7 #34 

•y f / h ji* 

8/42 

9/36 

9/39 

RDBLK 

BABE 

69/34 

70# 29 




EDDATA 

A9D9 

1 1 / 1 1 

22 # 1 3 




RDSC XT- 

A5B8 

1 6 / 1 3 

1 6# 1 5 




READ IN 

BA54 

68/40 

68/45 

6 9 #25 



RECCNT 

00 C 8 

29/44 

29/46 

29/47 

29/49 

-:*• /**•« .u, er **•> 
t» vJ j!.. 



34/31 

34/32 

/ ur tr: 
■_ J % J 

36/ 6 

4 1 / 2 1 



41/26 

; **t / 

£) •_> / J« 

63/34 



RECCTR 

A 35 5 

7/48 

8 / 6 

9#35 



RECE I V 

BB9C 

70/51 

73# 1 6 




RECLNG 

00 C 6 

27/45 

27/48 

oq / "7 "7 
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BC57 
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RECVEN 

BC26 

73/20 
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36/50 

47/18 
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63/56 
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8/21 

\... ! / .lw 
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71/46 
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6 / 9 
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15/33 
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SCREEN 
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3/54 

5/ 9 

1 1/18 

12/48 
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36/19 

61/42 

38/16 

41/35 

48/17 

50/12 

SCRNBF 
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7/24 
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SCRNBO 

A 229 

5/54 
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SCRNPR 

B2F4 

38/40 

48 #26 




SCRNPT 

0086 

1 4 #47 
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15/26 

15/45 

16/ 7 

S CRN TO 

A 2 20 

5/52 

6 # 32 




SECFLS 

00 B 5 

68/39 

68/42 

69/27 

69/41 

70/19 

SEND 
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67/50 
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SENDDS 
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SET VEX 

BBC 6 

67/43 

70/49 

“7 1 T 

/ .1 / .A. •-.« 

...y n 

7 -..>#4 / 




s 

SKCTL 

D20F 

74/49 

75/ 7 

76/39 





s 

SKRES 

3020 A 

75/ 8 







s 

SKSTAT 

D20F 

71/24 

71/38 

71/50 

71/52 





SORT 

B6AD 

44/41 

58# 4 1 







SRC HI 

B0CD • 

4/24 

38/24 

4 1 #40 






SRTLMG 

0087 

58# 5 1 

59/38 







SRTOFF 

0088 

58 #50 

59/15 

59/18 

60/40 

t y n “jt* 

£>0/ 4j 

60/47 

60/50 


SRTPT 1 

00E0 

58# 4 2 

59/16 

59/19 

59/20 

c.r o / r> ^ 

i.J 7 / A 

59/31 

59/34 




59/45 

59 / 54 

59/56 

60/ 6 

60/ 8 

60/39 

60/42 


SRTPT2 

00E2 

58 #43 

59/33 

59/36 

59/42 

60/ 1 1 

60/13 

60/ 1 4 




60/16 

60/17 

60/22 

60/46 

60/49 




SR TP '13 

00E4 

58 #4 4 

59/ 6 

59/ 8 

59/21 

59/26 

60/18 

60/23 




60/28 

60/30 

60/31 
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74/41 

74/48 
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START 
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STATUS 
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69/33 

69/50 
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15/18 
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60/41 

60/44 
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61/ 9 

61/1 4 

61/16 




61/1 7 

6 1 / 1 9 







T2 

00E8 

58 #4 6 

60/48 

60/51 

6 1 / 8 

6 1 / 1 1 

61/22 

6.1/24 




61/25 

61/27 







T3 

00EA 

58# 4 7 

60/53 

60/55 

61/28 

61/30 




TAPOUT 

A2F8 

8/38 

8#42 







TBDH I 

0302 

72#39 
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72/49 
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TBDLO 
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THOLD 
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59/44 
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72/20 

72/24 
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B 
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03 1 7 

67/47 

•{ / "7 
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"7 / kt. 

74/10 





TONE 

BD2B 

1 4 / 1 6 

14/27 

25/ 3,:* 

25/39 
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TONE 1 

BD3C 

7 7 #50 

77/52 







TONHLD 

00B0 

2# 5 1 

77/49 
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TROT 1 
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A341 

9/19 
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9/21 
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8/40 

8/43 

8/45 
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8/48 
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9/ 6 
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UNDO 
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1 1 / 1 7 
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B 

VCOUNT 
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WARM 
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n / op 
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BC97 
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XCN 6 SW 
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58/55 
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75 / 39 ' 

ZFR 0 
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76#32 
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